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ABSTRACT 


THIS PROGRAM IS DESIGNED TO BE USED BY AN EXPERIENCED ENGINEER 
/TECHNICIAN FOR EVALUATION AND DEBUGGING OF MAG TAPE DRIVES. 
THE PROGRAM IS CAPABLE OF EXERCISING ANY TAPE DRIVE THAT CAN 
BE OPERATED ON A MASSBUS THROUGH THE TMO2 MAG TAPE 


CONTROLLER. AMY TYPE OF TAPE DRIVE: NRZI,PE,7 OR 9 TRACK MAY BE USED. 


ANY NUMBER OF DRIVES, SINGLE OR MULTIDRIVE SYSTEMS, UP TO EIGHT 
(8), MAY BE TESTED BY A SINGLE EXECUTION OF THE PROGRAM. THIS 
FLEXIBILITY IS POSSIBLE BECAUSE THE PROGRAM HAS NO FIXED PARAMETERS 
OR TESTING SEQUENCE. THE ENTIRE TEST PLAN, INCLUDING PARAMETERS 
AND OPERATING SEQUENCE, IS DETERMINED BY THE OPERATOR THROUGH 
RESPONSES TO TELETYPE REQUESTS AND SETTING OF CONSOLE SWITCHES. 


THE PROGRAM PROVIDES FOR TESTING OF ALL TAPE DRIVE FUNCTIONS 
SUCH AS WRITING, READING, REWINDING, TAPE POSITIONING,EOT - BOT 
SENSING AND ASSUMES A GOOD RH AND TMO2. 


HOWEVER; THE RH AND TMO2 ARE TESTED SOMEWHAT INTRINSICALLY 
DURING THE TEST CYCLE IN ORDER TO PROVIDE FULL INFORMATION ABOUT 
ANY ERROR CONDITIONS DETECTED. 


DURING A TEST CYCLE, CHECKS ARE MADE FOR STATUS ERRORS,DATA ERRORS, 
POSITION ERRORS,WORD COUNT AND CURRENT MEMORY ADDRESS ERRORS 
WHEREVER APPLICABLE AS DETECTED BY THE RH OR TMO2. 


REQUIREMENTS (HARDWARE) 


A. ANY PDP-11 PROCESSER 
B. 8K OF CORE 

C. TELETYPE 

D. TMO2 TAPE CONTROLLER 
E. 1 TO 8 MAG TAPE DRIVES 
F. MASSBUS CONTROLLER 


LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING BINARY TAPES 


SEQ 0003 
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4. STARTING PROCEDURE 


THERE ARE FOUR (4) STARTING ADDRESSES THAT MAY BE USED; 
200(8) ,204(8),210(8) AND 240(8): 


A. 200(8): 


B. 204(8): 


C. 210(8): 


D. 240(8): 


E. 300(8): 


THIS ADDRESS MUST BE USED ON INITIAL START FROM 

LOAD AS ALL PARAMETERS ARE ENTERED FROM HERE. 

REQUESTS ARE PRINTED ON THE TELETYPE FOR ENTRY OF 

RH STARTING ADDRESS, VECTOR ADDRESS, DRIVE NUMBER(TMO2 ADDRESS), 
SLAVE NUMBER, DENSITY,PARITY,FORMAT,RECORD COUNT CHARACTER 
COUNT PATTERN NUMBER, TAPE MARK AND STALL FOR READ, WRITE, 
AND TURNAROUND. ALL REPONSES SHOULD BE MADE IN 

OCTAL AND WITHIN THE LIMITS OF THE PARAMETER. 

A QUESTION MARK (7) WILL BE TYPED IF ANY 

CHARACTER ENTERED IS NOT BETWEEN 0 THRU 7 (OCTAL). 

THE CHARACTER MAY BE RETYPED FOLLOWING THE QUESTION 

MARK. IF THE RESPONSE IS NOT WITHIN ITS LIMITS. A 
QUESTION MARK (?) IS TYPED AND THE ENTIRE RESPONSE 

MAY BE RENTERED. SOME RESPONSES REQUIRE MORE THAN ONE 

(1) CHARACTER, BUT NONE REQUIRES MORE THAN SIX (6). 
RESPONSES OF MORE THAN ONE CHARACTER NEED NOT HAVE 

LEADING ZEROS AND SHOULD BE TERMINATED BY A CARRIAGE 

rig 3 LESS THAN THE MAXIMUM NUMBER OF CHARACTERS 


THIS ADDRESS SHOULD BE USED ANYTIME A RESTART 

OF THE PROGRAM IS NECESSARY AND THE PARAMETERS 
ENTERED AT THE INITIAL START OF 200(8) NEED NOT 

BE CHANGED. ALSO NOTE THAT ANY DATA ag ee WHICH 
HAD BEEN GENERATED BY SETTING THE RANDOM DAT 

SWITCH (CONSOLE SWITCH EIGHT) WILL NOT BE OVERWRITTEN 
AND THERFORE IS HELD IN CORE FOR USE UNTIL 


CONSOLE SWITCH EIGHT(8) IS AGAIN SET AND THAT ALL STATISTICS WILL BE RETAINED. 


THIS ADDRESS IS THE SAME AS USING 204(8) IN THAT THE 

PREVIOUSLY SET PARAMETERS ARE USED; HOWEVER, THE DATA 

PATTERN IS RETURNED TO THE FIXED PATTERN ORIGINALLY 

CALLED FOR AT THE 200(8) START AND ALL STATISTICS ARE CLEARED TO ZERO. 


THIS IS A SPECIAL ADDRESS WHICH WILL CAUSE THE 
PROGRAM TO EXECUTE A PREDETERMINED TEST PLAN ON 
ALL AVAILABLE DRIVES AND SLAVES. THE ONLY INPUT 
REQUIRED BY THE OPERATOR IS A RESPONSE TO 

REQUESTS FOR THE RH ADDRESS, VECTOR ADORESS, 
CONTINUOUS OPERATION OF THE SEQUENCE, AND NRZ ONLY. 


SEE ITEM 11. (PAGE 24) FOR FULL DETAILS 


THIS ADDRESS IS TO BE USED AS A RESTART ONLY 

AND WILL PERFORM JUST AS IN 200(8) EXCEPT THAT 
THE PARAMETER INPUT LIST IS SHORTENED. THE SHORT 
PARAMETER LIST CONSISTS OF DRIVE NUMBER, SLAVE 


SEQ 0004 
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NUMBER, DENSITY, PARITY, FORMAT, RECORD COUNT, 
CHARACTER COUNT, PATTERN, AND TAPE MARK. 
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THE FOLLOWING IS AN EXPLANATION OF THE INITIAL 
START (200 OCTAL) REQUESTS AND RESPONSES: 


REGISTER START: THE RESPONSE REQUIRED FOR THIS REQUEST 
IS TO ENTER [HE ADDRESS OF THE FIRST RH 
REGISTER (CS1) AS A SIX DIGIT UNIBUS ADDRESS. 


VECTOR ADDRESS: THE RESPONSE FOR THIS REQUEST 
IS TO ENTER THE INTERRUPT VECTOR ADDRESS 
USED BY THE RH AS A THREE (3) DIGIT ADDRESS. 


DRIVE NUMBER: THE DRIVE NUMBER (MASSBUS ADDRESS 
OF THE TMO2) IS ENTERED AS ONE (1) 
OCTAL CHARACTER AND MUST BE WITHIN THE LIMITS 
OF 0 THROUGH 7. 


SLAVE NUMBER: THE SLAVE NUMBER IS ENTERED AS ONE 
(1) OCTAL CHARACTER AND MUST BE 
WITHIN THE LIMITS OF O THROUGH 7. 
WHEN THE SLAVE NUMBER HAS BEEN 
ENTERED AND IS LEGAL, THE PROGRAM TESTS 
FOR THE PRESENCE OF A SLAVE OF THAT 
NUMBER. IF THE SLAVE IS AVAILABLE 
A PRINTOUT OF 7 CHANNEL, IF APPLICABLE, 
AND ITS SERIAL NUMBER (IN BCD) 
WILL BE MADE TO ASSIST THE OPERATOR 
IN SETTING OF DENSITY, PARITY, AND FORMAT. 
A CHECK IS MADE FOR THE PROPER SETTING 
OF THE DRIVE TYPE REGISTER; IF WRONG, A 
MESSAGE IS PRINTED FOR INFORMATION ONLY. 
IF THE SLAVE IS NOT AVAILABLE, 
A MESSAGE STATING SO WILL BE 
PRINTED AND A NEW SLAVE NUMBER 
REQUEST WILL BE ISSUED. WHEN A 
GOOD SLAVE NUMBER HAS BEEN ENTERED, 
REQUESTS FOR OPERATING DENSITY 
PARITY AND FORMAT ARE MADE FOR THAT 
SLAVE AND SHOULD BE RESPONDED 10 
ACCORDING TO THAT PARITICULAR SLAVE'S 
NEEDS. AS MANY AS EIGHT (8) SLAVE 
NUMBER REQUESTS MAY BE USED, HOW- 
EVER, AT LEAST ONE MUST BE USED. 
THE SLAVE NUMBERS AND THEIR RESPECTIVE 
DENSITY, PARITY AND FORMAT MAY BE ENTERED 
IN ANY ORDER. THE INFORMATION FOR 
EACH SLAVE ENTERED IS LOADED INTO A 
TABLE FOR REFERENCE IN TESTING. 8 
IF LESS THAN EIGHT(8) SLAVES ARE 
REQUIRED, THEN RESPONDING TO THE 
SLAVE NUMBER REQUEST WITH A CARRIAGE 
RETURN WILL TERMINATE THE SLAVE 
ENTRIES AND CONTINUE TO THE NEXT 
PARAMETER. IT SHOULD BE REMEMBERED 
THAT AT LEAST ONE SLAVE NUMBER REQUEST 
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DENSITY: 


PARITY: 


FORMAT: 


RECORD COUNT: 


CHARACTER COUNT: 


(PAGE 4) 


THE DESITY REQUEST IS RESPONDED TO BY ONE (1) OCTAL 
CHARACTER AND MUST BE WITHIN THE LIMITS OF O THRU 4. 
AS EACH SLAVE NUMBER IS ENTERED, A REQUEST FOR THE 
OPERATING DENSITY FOR THAT SLAVE IS TYPED. THE 
RESPONSE MEANINGS ARE AS FOLLOWING: 


A. 0 = 200BPI., NRZ1 
B. 1 = 556BPI, NRZI 
C. 2 = 800BPI1, NRZI 
D. 3 = 800BPI, NRZI 
E. 4 = 1600BPI, PE (9 CHANNEL ONLY) 


THE PARITY REQUEST IS RESPONDED TO BY ONE (1) 
OCTAL CHARACTER AND MUST BE EITHER 0 OR 1. 


A. 1 = EVEN PARITY 
B. 0 = ODD PARITY 


THE FORMAT REQUEST IS RESPONDED 
TO BY TWO (2) CHARACTERS 
AND SHOULD BE AS FOLLOWS 


A. 14 = 9 CHANNEL NORMAL (TWO FRAMES PER WORD) 
B. 15 = CORE DUMP (FOUR FRAMES PER WORD) 


THIS REQUEST IS RESPONDED TO BY A SIX (6) CHARACTER 
OCTAL NUMBER FROM 1 10 177777. REMEMBER LEADING 
ZEROS ARE NOT REQUIRED AND IF LESS THAN SIX 
CHARACTERS ARE ENTERED, A CARRIAGE RETURN 

WILL TERMINATE THE RESPONSE. THE RECORD COUNT 

IS USED IN CONJUCTION WITH THE CHARACTER COUNT 

TO ESTABLISH A BLOCKING FACTOR FOR USE IN READ OR 
WRITE CYCLES. 


THIS RESPONSE IS ENTERED AS FOUR (4) OCTAL 
CHARACTERS WITHIN THE LIMITS OF 20 THRU 4000. AGAIN 
LEADING ZEROS ARE NOT REQUIRED AND A CARRIAGE 
RETURN TERMINATES A LESS THAN FOUR (4) CHARACTER 
RESPONSE. THE CHARACTER COUNT IN CONJUNCTION 
WITH THE RECORD COUNT IS USED TO ESTABLISH 
THE BLOCK SIZE (CHARACTERS PER RECORD, AND 
RECORDS PER BLOCK) USED IN READ AND WRITE CYCLES 
THE SAME BLOCKING IS USED ON ALL AVAILABLE UNITS. 


SEQ 0008 
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PATTERN NUMBER: THIS RESPONSE IS A TWO (2) CHARACTER OCTAL 
NUMBER WITHIN THE LIMITS OF O THRU 15(8). 
THE NUMBER ENTERED WILL CAUSE A SPECIFIC DATA 
PATTERN TO BE USED FOR ALL READING AND WRITING. THIS 
DATA PATTERN IS NOT CHANGED UNLESS RANDOM DATA 
IS REQUESTED BY SETTING CONSOLE SWITCH EIGHT (8) 
TO A ONE. RESETTING OF THE RANDOM DATA SWITCH 
DOES NOT CAUSE REVERSION TO THE FIXED sgh of 
BUT WILL HOLD THE LAST GENERATED PATTERN UNTI 
A RESTART IS DONE FROM LOCATION 200(8), 210(8), OR 300(8). 
WHEN OPERATING IN NRZ MODE (DENSITY 0-3) 
THE PROGRAM CONSTRUCTS AND SAVES 
BOTH AN EXPECTED CRC CHARACTER AND AN 
LRC CHARACTER FOR COMPARISONS WITH 
THE HARDWARE GENERATED CHECK CHARACTER 
IN BOTH READ AND WRITE. 
THE SELECTION OF DATA PATTERN ZERO (0) HAS A 
SPECIAL USE. PATTERN NUMBER ZERO (0) WILL 
CAUSE TO BE READ IN AT THE HIGH SPEED PAPER 
TAPE READER ANY DATA PATTERN DESIRED. 
THE EXTERNAL INPUT DATA THOUGH THE READER 
IS DONE BY PREPARING A PAPER TAPE WITH A PROGRAM 
CALLED DTC. (ZZ-CZTUNAO) ANY CONFIGURATION 
OF BITS AND CHARACTERS MAY BE USED AND A LIMIT 
OF 377(8) CHARATERS IS IMPOSED. WHEN EXTERNAL 
DATA IS INPUT, THE ENTIRE WRITE BUFFER IN 
CORE IS FILLED WITH THE PATTERN SO THAT ANY 
SIZE RECORD MAY BE USED. DATA PATTERN 
PATTERN ZERO (0) EXTERNAL PAPER TAPE NEED ONLY 
BE READ ONCE AT INITIAL START OF 200(8), AND 
NEED NOT BE READ AGAIN UNLESS OVERWRITTEN BY 
RANDOM DATA. BE SURE TO LOAD THE READER 
BEFORE PRESSING START. 


TAPE MARK: THE TAPE MARK REQUEST IS USED TO DETERMINE 
IF THE OPERATOR WISHES TO HAVE EACH 
DATA BLOCK SEPERATED BY A TAPE MARK. IF 
RESPONDED TO BY A ONE (1) THE TAPE MARK 
WILL BE WRITTEN AND WHEN READING WILL ‘ 

. BE EXPECTED AT THE END OF DATA BLOCK. 

A ZERO (0) RESPONSE WILL DISALLOW TAPE 
MARK. PLEASE NOTE THAT THE TAPE MARK 
RECORD INCREASES THE BLOCK SIZE BY ONE (1) 
RECORD; IN OTHER WORDS, A BLOCK OF 100 
RECORDS WILL HAVE THE TAPE MARK AS RECORD 101. 
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SINGLE PASS: THIS REQUEST IS RESPONDED TO BY EITHER A ONE (1) 
OR A ZERO (0). RESPONSE OF 1, WILL CAUSE THE TEST 
TO BE S7OPPED AFTER THE LAST AVAILABLE DRIVE 
REACHES iD OF TAPE. A RESPONSE OF 0, WILL 
ALLOW CONTINUOUS RUNNING THROUGH MULTIPLE PASSES. 
TO RESTART AT END OF PASS, PRESS CONTINUE, OR 
RESTART AT THE CONSOLE. 


STALLS: THE STALL REQUESTS ARE RESPONDED TO BY A SIX (6) 
CHARACTER OCTAL NUMBER WITHIN THE LIMITS OF 1 
THRU 177777. LEADING ZEROS ARE NOT REQUIRED AND 
AN ENTRY OF LESS THAN SIX (6) CHARACTERS SHOULD 
BE TERMINATED BY A CARRIAGE RETURN. EACH INCREMENT 
OF THE VALUE ADDS ABOUT 2.6 MICSEC TO THE DELAY. 


READ: THE TIME DELAY BETWEEN EACH RECORD READ 
WRITE: THE TIME DELAY BETWEEN EACH RECORD WRITTEN 


TURN AROUND: TIME DELAY BETWEEN CHANGES OF 
TAPE DIRECTION (FORWARD,TO REVERSE,ETC.) 
AND BETWEEN BLOCKS. 


FIXED PARAMETERS: IT SHOULD BE NOTED THAT ALL PARAMTERS EXCEPT 
FOR THE SLAVE DESCRIPTION VALUES (SLAVE 
NUMBER, DENSITY, PARITY, AND FORMAT) HAVE NOMINAL 
VALUES AiREADY STORED IN THE PROGRAM. 
AS EACH PARAMETER REQUEST (PATTERN NUMBER, RECORD 
COUNT, CHARACTER COUNT, TAPE MARK AND STALLS) IS TYPED. 
ITS PRESENT STORED VALUE IS ALSO PRINTED. 
IF THESE VALUES NEED NOT BE CHANGED, SIMPLY 
TYPE A CARRIAGE RETURN AS RESPONSE AND NO 
CHANGE WILL BE MADE. EACH START OF THE PROGRAM 
AT 200(8) WILL SHOW THE CURRENT VALUES OF THESE 
PARAMETERS AS PER THE LAST ENTRY. WHEN A 
FRESH LOAD OF THE PAPER TAPE IS DONE, THE 
PARAMETERS WILL REFLECT THE FIXED VALUES STORED 
IN THE PROGRAM. 


A. RECORD COUNT = 100 

B. CHARACTER COUNT = 200 
C. PATTERN NUMBER = 1 

D. TM=0 

E. SINGLE PASS = 0 

F. READ STALL = 1 

G. WRITE STALL = 1 

H. TURN AROUND STALL = 1 
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SAMPLE START AT 200(8): 


THE FOLLOWING IS A SAMPLE OF THE 

PRINTED REQUESTS AND THEIR RESPONSES. 
RESPONSES ARE ENCLOSED IN PARENS FOR 
CLARITY ONLY AND (CR) MEANS CARRIAGE RETURN 


LOAD ADDRESS 200(8), SET CONSOLE SWITCHES, PRESS START SWITCH: 


TU45 TAPE DRIVE TEST 
ENTER CONDITIONS IN OCTAL 


REGISTER START=172440(172440) 
VECTOR ADDRESS=224(CR) 

DRIVE NUMBER (4) 

SLAVE NUMBER=(5) SN: 5009 
DENSITY=(3) 

PARITY=(0) 

FORMAT=(14) 

SLAVE NUMBER=(2) 7 CHAN SN: 0022 
DENSITY=(2) 

PARITY=(1) 

FORMAT=(15) 

SLAVE NUMBER=(CR) 

RECORD COUNT=100 (500) (CR) 
CHARACTER COUNT=200 (38)?(7) (CR) 
PATTERN NUMBER=1 (22) 


(6) (CR) 
TM=(0) 
SINGLE PASS=(0) 


ENTER STALLS 

READ=1 (CR) 

WRITE=1 (CR) . 
TURN AROUND=1 (3000) (CR) 


THE PROGRAM WILL NOW PERFORM THE TEST CYCLE SET IN 

THE CONSOLE SWITCHES ON SLAVE FIVE (5) THEN TWO (2), 

ONE BLOCK ON EACH UNIT PER CYCLE, USING DATA PATTERN 
NUMBER SIX (6) WITH A BLOCKING FACTOR OF 37 CHARACTERS 
PER RECORD AND 500 RECORDS PER BLOCK. THE DELAYS ARE SET 
FOR MINIMUM ON READ AND WRITE, AND APPROXIMATELY .75 
SECONDS ON TURN AROUND. 


NO TAPE MARKS WILL BE WRITTEN. 
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5. DATA PATTERNS 


THERE ARE FIFTEEN DATA PATTERN GENERATORS STORED IN CORE 
AND ANY ONE OF THESE MAY BE SELECTED. THE ONE UNIQUE 
CASE IS PATTERN ZERO(O); SELECTION OF PATTERN ZERO(O) 
REQUIRES THAT A PREVIOUSLY PREPARED PAPER TAPE BE 
ENTERED AT THE HIGH SPEED READER. THIS TAPE CONTAINS 

A DATA PATTERN OF NO MORE THAN 377 OCTAL 
CHARACTERS. THE FIRST CHARACTER READ IN IS THE 
NUMBER OF ACTUAL DATA CHARACTERS THAT ARE CONTAINED 
ON THE TAPE. EACH DATA CHARACTER MAY BE ANY 
COMBINATION OF BITS AND WILL BE LOADED iNTO CORE 
AS THEY APPEAR ON THE TAPE. NO MATTER HOW MANY 
CHARACTERS ARE ON TAPE, THE ENTIRE WRITE BUFFER (4000 CHARACTERS) 
WILL BE FILLED WITH THE PATTERN ENTERED SO THAT ANY 
SIZE RECORD CAN BE USED. (SEE DTC ZZ-CZTUNAO) 
THE PROGRAM GENERATES A CYLIC REDUNDENCY CHECK 
CHARACTER (CRC) AND A LONGITUDINAL REDUNDENCY CHECK 
CHARACTER (LRC) FOR COMPARISONS AGAINST THE CRC AND LRC 
GENERATED BY THE HARDWARE IN NRZI READS OR WRITES. 


THE FOLLOWING IS A LIST OF THE DATA PATTERNS AVAILABLE: 


DATAO: EXTERNAL INPUT THRU HIGH SPEED READER (SEE DTC) 
DATA1: ALL ONE BITS IN ALL CHARACTERS 

DATA2: ALL ZERO BITS IN ALL CHARACTERS 

DATA3: A ONE BIT WALKING FROM RIGHT TO LEFT IN A FIELD OF ZEROS 
DATA4: A ZERO BIT WALKING FROM RIGHT TO LEFT IN A FIELD OF ONES. 
DATAS: ALTERNATING ONE AND ZERO BITS IN EACH CHARACTER 

DATA6: ALTERNATING ZERO AND ONE BITS IN EACH CHARACTER 

DATA7: SAME AS DATAS BUT WITH EVERY OTHER CHARACTER COMPLEMENTED 
DATA10: WALKING ONE/ALL ONE IN ALTERNATING CHARACTERS 

DATA11: INCREMENTING CHARACTERS (000-377) 

VATA12: DECREMENTING CHARACTERS (377-000) 

DATA13: ALTERNATING CHARACTERS OF ALL ZERO AND ALL ONE BITS 
DATA14: WALKING ZERO/ALL ZERO IN ALTERNATING CHARACTERS 

DATA15: AUTO SEQUENCE PATTERN 0,0,-1,-1,-1,0,0 
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RANDOMIZATION 


THERE ARE THREE (3) VALUES THAT MAY BE GENERATED RANDOMLY; 

DATA, CHARACTER COUNT, AND RECORD COUNT. THESE ARE NORMALLY SET TO 
SOME FIXED VALUE BUT MAY BE RANDOMIZED BY SETTING THE APPROIATE 
CONSOLE SWITCHES. 


A. 


RANDOM DATA: (CONSOLE SWITCH 8) 

GENERATES AN ENTIRE BUFFER, CHARACTER BY 
CHARACTER, OF RANDOM DATA WHEN SWITCH 8 

IS SET TO A ONE. ONCE SET, THE RESETTING OF 
SWITCH 8 CAUSES THE LAST GENERATED PATTERN 

TO BE RETAINED IN CORE. A RESTART AT LOCATION 
200(8) OR 210(8) WILL CAUSE REVERSION OF THE 

DATA TO THE FIXED PATTERN REQUESTED INITIALLY. 

A RESTART AT LOCATION 204(8) WILL HOLD 

THE LAST GENERATED PATTERN IN CORE UNTIL SWITCH 

8 IS AGAIN SET. 

ALTHOUGH THE DATA IS GENERATED AS RANDOR, 

THE PROGRESSION OF RANDOM CHARACTERS ALWAYS 

THE SAME FROM THE OUTSET OF RANDOMIZATION. 

THEREFORE IT IS POSSIBLE TO GENERATE ONE TAPE REEL 
OF RANDOM DATA ON ONE UNIT, RESTART THE 

PROGRAM TO RE-ESTABLISH THE OUTSET POINT. AND 

READ THE RANDOM TAPE REEL ON ANOTHER UNIT 

FOR COMPATABILITY TESTING. IN MULTIDRIVE SYSTEMS THE SAME 
BLOCK OF DATA, WHETHER RANDOM OR FIXED, IS 
WRITTEN OR READ ON EACH AVAILABLE UNIT IN THE 
ORDER THAT THEY WERE ENTERED, BEFORE BEING CHANGED. 


RANDOM CHARACTER COUNT: (CONSOLE SWITCH 7) 
GENERATES A DIFFERENT NUMBER OF CHARACTERS 
PER RECORD TO BE WRITTEN ON EACH BLOCK CYCLE. 
THE SAME NUMBER OF CHARACTERS PER RECORD IS 
WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
BEING CHANGED. RESETTING SWITCH 7 HOLDS THE 
LAST VALUE GENERATED. 


RANDOM RECORD COUNT: (CONSOLE SWITCH 6) 

GENERATES A DIFFERENT NUMBER OF RECORDS 

FOR EACH BLOCK OF DATA WRiTTEN OR READ ON 

EACH BLOCK CYCLE. THE SAME NUMBER OF RECORDS 

IS WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
oaw7," RESETTING SWITCH 6 HOLDS LAST VALUE’ 


SEQ 0013 
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DYNAMIC PARAMETERS: 


THE THREE (3) STALL VALUES ARE CONSIDERED TO BE DYNAMIC 
PARAMETERS AS THEY MAY BE CHANGED WHILE THE PROGRAM IS 

RUNNING BY TYPING A CONTROL C CHARACTER AT THE TELETYPE. 

AS SOON AS THE BUS IS RELEASED BY THE MAG TAPE OPERATION 

IN PROGRESS, THE PROGRAM WILL RESPOND TO THE CONTROL C INPUT 
BY TYPING A REQUEST FOR NEW STALL PARAMETERS. THE LAST VALUES 
THAT WERE ENTERED WILL BE PRINTED AS THE STORED VALUES AND MAY 
BE CHANGED BY ENTERING NEW VALUES OR LEFT UNCHANGED BY 

TYPING A CARRIAGE RETURN. 

THE YOZZLE STALL IS ALSO DYNAMIC AND CAN BE CHANGED 

BY TYPING A CNTRL C WHILE DOING A VYOZZLE. A YOZZLE STALL 
REQUEST WILL BE PRINTED AND SHOULD BE RESPONDED TO WITH 

THE DESIRED VALUE. 


ee ee 7 , 4 = 
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CONSOLE SWITC" SETTINGS 


THE CONSOLE SWITCHES ARE USED TO SET UP THE TEST CYCLE 
DESIRED, TO GENERATE RANDOM VALUES, AND TO CONTROL ERROR 
RESPONSES. THE SWITCHES SHOULD BE SET IN THE DESIRED 
MANNER BEFORE PRESSING THE START SWITCH BECAUSE THEY 

ARE ALL DYNAMIC AND WILL RUN THE PROGRAM IN ANY 
CONFIGURATION. ALL SWITCHES SET TO ZEROCO) IS NORMAL. 

IF A CONSOLE SWITCH REGISTER IS NOT PRESENT, THE SWITCHES 
ARE NOT DYNAMIC AND MUST BE SET BEFORE STARTING, USING 
THE FOLLOWING PROCEDURE: 


A) LOAD ADDRESS 606(8) LABELLED ‘‘SWR*’ 
B) DEPOSIT THE VALUE 176(8) 

C) LOAD ADDRESS 176(8) 

D) DEPOSIT THE DESIRED SWITCH VALUE. 


SW15: 1=STOP ON ERROR 
O=CONTINUE ON ERROR 


SW14:  1=PRINT READ/WRITE STATISTICS 
0=DO0 NOT PRINT STATS 


SW13: 1=DO NOT CHECK DATA ERRORS 
O=CHECK DATA ERRORS 


SW12: 1=DO NOT CHECK WRITE STATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 


O=CHECK WRITE STATUS ERRORS 


SW11: 1=DO NOT CHECK READ STATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 


O=CHECK READ STATUS ERRORS 


SW10: 1=DO NOT PRINT ANY ERRORS (EXCEPT CATASTROPHIC ERRORS) 


O=PRINT ALL ERRORS 


SwW9: 1=REWIND ALL AVAILABLE TAPES 
0=DO NOT REWIND 


Sw8: 1=GENERATE RANDOM DATA 
O=USED FIXED DATA 


SW7: 1=GENERATE RANDOM CHARACTER COUNT 
O=USE FIXED CHARACTER COUNT 


SW6: 1=GENERATE RANDOM RECORD COUNT 
O=USED FIXED RECORD COUNT 


SwW5: 1=YOZZLE ON CURRENT RECORD 
0=DO NOT YOZZLE ON RECORD 


SW4: 1=DO0 WRITE/READ RETRIES 


SEQ 0015 
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O=D0 NOT RETRY 


SW3: 1=D0 NOT READ FORWARD 
O=READ FORWARD 


Swe: 1=D0 NOT READ REVERSE 
O=READ REVERSE 


SW1: 1=READ FORWARD FIRST 
O=READ REVERSE FIRST 


SwO:  1=D0 NOT WRITE 
O=WRITE 
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SWITCH EXPLANATION AND EXAMPLES: 


SWwO-3: 


THESE SWITCHES ARE USED TO CONTROL THE SEQUENCE 

OF MAG TAPE OPERATIONS PREFORMED ON EACH AVAILABLE 
UNIT. THE BLOCK OF DATA DESCRIBED THROUGH 

THE RESPONSES TO TELETYPE REQUESTS AT INITIAL START 
WILL BE EITHER WRITTEN OR READ FROM EACH AVAILABLE 
UNIT IN THE ORDER THAT THEY WERE ENTERED. THE SEQUENCE 
OF OPERATIONS IS CALLED A CYCLE, AND WILL BE PERFORMED 
CONTINUOUSLY UNTIL STOPPED BY THE OPERATOR. WHEN END 
OF TAPE IS REACHED, THE UNIT WILL BE REWOUND AND 
FLAGGED AS UNAVAILABLE FOR TEST UNTIL ALL UNITS HAVE 
REACH EOT, AT WHICH TIME TESTING IS RESUMED ON ALL 
AVAILABLE UNITS. 


EXAMPLES: 0-3 


A. SWO=0,SW1=0,SW2=1,SW3=1 
WRITE ONLY X RECORDS OF Y CHARACTERS 


B. SWO0=0,SW1=0,SW2=1,SW3=0 
WRITE THEN BACKSPACE AND READ FORWARD X RECORDS 


C. SWO=0,SW1=0,SW2=0,SW5=1 
WRITE THEN READ REVERSE X RECORDS. 


D. SwWO=0,SW1=0,SW2=0,SW5=0 
WRITE THEN READ REVERSE AND READ FORWARD X RECORDS 


E. Sw0=0,SW1=1,SW2=0.SW3=0 
WRITE THEN BACKSPACE AND READ FORWARD THEN REVERSE 


F. SWO=1,SW1=0,SW2=1,SW3=0 
READ TAPE FORWARD X RECORDS 


G. SWO=1,SW1=0,SW2=0,SW3=1 
READ TAPE REVERSE X RECORDS 


H. SWO=1,SW1=0,SW2=0,5W3=0 
READ TAPE REVERSE THEN FORWARD 


I. SWO=1,SW1=1,SW2=0,SW3=0 
READ TAPE FORWARD THEN REVERSE 


SEQ 0017 
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SW4: 


SwW5: 


SW6-8: 


Sw9: 


(PAGE 13) : 


SWITCH FOUR (4), WHEN SET TO A ONE (1), WILL 

CAUSE ANY DATA RELATED ERROR TO BE RETRIED. 

THE WRITE RETRY SCHEME CONSISTS OF REWRITING THE RECORD 
IN THE SAME SPOT ON TAPE FOUR (4) TIMES. IF 

ALL FOUR (4) REPEATS ARE SUCCESSFUL, THE 

RECORD IS CONSIDERED AS RECOVERED, AND A TAPE 
WRITE ERROR IS LOGGED. IF ANY OF THE FOUR 

(4) REPEATS IS UNSUCESSFUL, A SKIP ERASE IS 

DONE, A SUPECTED BAD TAPE SPOT IS LOGGED 

AT THIS BLOCK AND RECORD NUMBER, AND A SECOND 
RETRY OF FOUR REPEATS IS DONE. IF AFTER FOUR 

(4) RETRIES, THE RECORD CANNOT BE RECOVERED 

A NOTIFICATION IS PRINTED, AND TESTING IS 

RESUMED ON THE NEXT RECORD. 

IF 20(8) BAD TAPE SPOTS ARE FOUND, THE 

SLAVE WILL BE REWOUND AND REMOVED FROM 

TESTING WITH AN APPROPRIATE MESSAGE PRINTED. 

THE READ RETRY SCHEME CONSISTS OF REREADING THE 
RECORD UP TO EIGHT TIMES. IF ALL EIGHT REREADS ARE 
BAD, IT IS A HARD ERROR. IF ANY REREAD IS 
SUCCESSFUL, THIS IS A SOFT ERROR. 

IF THE ORIGINAL ERROR IS OF THE NON-RETRYABLE 

TYPE (IE: ILF,RAR,ILR,NEF ,CBUSPE), THE RETRY SCHEME 
IS NOT ENTERED AND A MESSAGE IS PRINTED. 


SWITCH FIVE (5) WHEN SET DURING A READ 
FORWARD OR REVERSE WILL CAUSE THE TAPE 

TO CONTINUOUSLY READ THE CURRENT RECORD 

BY SPACING EITHER FORWARD OR REVERSE AND 
REREADING THAT RECORD. THIS TAPE MOVEMENT 
IS CALLED YOZZLING. THERE IS A SOFTWARE 
DELAY EXECUTED BETWEEN EACH SPACE/READ 

OF THE RECORD AND IT MAY BE VARIED BY 
TYPING CONTROL C ON THE TELETYPE DURING 
THE EXECUTION OF THE YOZZLE AND RESPONDING 
TO THE PRINTED REQUEST WITH A SIX (6) 
DIGIT VALUE. THE YOZZLE STALL IS PRESET 
TO A VALUE OF 3000 IN THE PROGRAM TO 
PREVENT EXCESSIVE TAPE WEAR, BUT MAY BE 
SET TO ANY VALUE THROUGH THE TELETYPE. 


THESE THREE (3) SWITCHES CONTROL THE RANDOMIZATION 
OF DATA AND BLOCK SIZE AND MAY BE SET 

AND RESET AT ANY TIME. THE ACTUAL CHANGE 

WILL TAKE PLACE BETWEEN BLOCK CYCLES. 


SWITCH NINE (9) WHEN SET WILL CAUSE ALL 
AVAILABLE TAPE UNITS TO BE REWOUND AT 

THE END OF THE CURRENT BLOCK CYCLE. TESTING 
WILL BE RESUMED AT A BLOCK COUNT OF 

ONE (1) WHEN ALL UNITS HAVE REACHED BOT. 


SEQ 0018 
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$W10-13: 


SW14: 


Swi5: 
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THESE SWITCHES ARE USED TO CONTROL THE 
ERROR HANDLING TO BE DONE ON THE TAPE 
OPERATION DESCRIBED BY SWITCHES 0-3. 


SWITCH TEN (10) WHEN SET TO A ONE 

WILL DISALLOW ANY ERROR PRINTOUTS MADE 

ON THE OPERATION IN PROGRESS. CATASTROPHIC 
FAILURES AND INFORMATION PRINTOUTS WILL 

STILL OCCUR. IE: UNIT NOT AVAILABLE, ILLEGAL 
BOT, DROP OR PICK OVERFLOW, AND EOT REWIND. 


SWITCH ELEVEN (11) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING FOR STATUS 
ERRORS ON READ (FORWARD OR REVERSE) OPERATIONS. 


SWITCH TWELVE (12) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING FOR STATUS 
ERRORS ON WRITE OPERATIONS. 


SWITCH THIRTEEN (135) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING OF READ 
DATA. THIS SWITCH HAS NO EFFECT ON 
STATUS CHECKING. 


SWITCH FOURTEEN (14)WHEN SET TO A ONE (1) WILL 


PRINT THE ACCUMULATED READ/WRITE STATISTICS FOR THE SELECTED 


SLAVE UNDER TEST AT THE END OF THE CURRENT BLOCK 


CYCLE. THE STATISTICS PRINTED ARE THE NUMBER OF BITS 
DROPPED OR PICKED, THE cR OF RETRIES, WRITE ERRORS, 


READ ERRORS, AND DATA ERRORS. 


SWITCH FIFTEEN (15) WHEN SET TO A ONE, 

WILL CAUSE THE PROGRAM TO HALT ON ANY 

ERROR DETECTED BY THE OPERATION IN PROGRESS. 
IF BOTH SWITCH TEN (10) AND FIFTEEN (15) 

ARE SET, THE ACTUAL ERROR DETECTED WILL 

NOT BE PRINTED BUT WILL CAUSE A HALT. 

IF SWITCH TEN (10) IS RESET BEFORE PRESSING 
CONTINUE, THE ERROR WHICH CAUSED THE HALT 
WILL BE PRINTED BEFORE TESTING IS RESUMED. 


SEQ 0019 


**NOTE THAT WHEN SW11 OR 12 ARE SET, NOT ONLY ARE ERRORS NOT CHECKED, BUT THEY ARE NOT CLEARED EITHER. 
*** THEREFOR USE CAUTION TO ASSURE THAT OPERATIONS ARE NOT UNEXECUTED DUE TO UNCLEARED ERRORS. 
xeeeDQ NOT SET SW 11 OR 12 TO A ONE (1), DURING A RETRY SEQUENCE. 
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9. ERROR PRINTOUTS 


THERE ARE THREE TYPES OF ERROR PRINTOUTS MADE BY 
THE PROGRAM; OPERATION ERRORS, DATA ERRORS, AND CONDITION 


ERRORS. 


EACH ERROR MESSAGE PRINTED IS PROCEEDED BY A TWO LINE 


HEADER WHICH CONTAINS THE DRIVE NUMBER, SLAVE NUMBER, 


DENSITY, PARITY, AND FORMAT ON THE FIRST LINE, AND THE BLOCK NUMBER, 


RECORD NUMBER, RECORD SIZE, AND ERROR TYPE ON THE SECOND. 
A. OPERATION ERRORS: 


B. DATA 


THESE ARE ERRORS WHICH LAN OCCUR AS A 
DIRECT RESULT OF A TAPE OPERATION. 


1. READ/WRITE STATUS ERRORS: THESE ARE DETECTED BY EITHER THE TMO2 
ITSELF OR BY THE MASSBUS CONTROLLER. 
ALL STATUS ERRORS WILL BE REPORTED. 


2. TAPE POSITION ERRORS: THESE ARE INDICATED BY AN INCORRECT 
SPACE OR REWIND OPERATION IN WHICH 
TAPE POSITION BECOMES UNRELIABLE. 


ERRORS: 


DATA ERRORS WILL OCCUR WHEN TAPE IS 

BEING READ AND THE DATA FROM TAPE DOES 

NOT MATCH THE EXPECTED DATA. WHEN READING 

IN THE REVERSE DIRECTION, THE RECORD NUMBERS 
WILL BE COUNTED DOWN FROM LAST TO FIRST. 

THE CHARACTER NUMBERS IN REVERSE READS WILL 
ALSO BE COUNTED DOWN IN ORDER TO REFLECT 

TAPE POSITION RATHER THAN THE ORDER TRANSFERRED. 


BECAUSE DATA RECORDS CAN BE UP TO FOUR THOUSAND 
CHARACTERS LONG, AN ERROR CONDITION WHICH WILL CAUSE 
THE ENTIRE RECORD TO READ INCORRECTLY COULD CAUSE A VERY 
LENGTHY PRINTOUT. THEREFORE, A COUNTER OF SUCCESSIVE 
BAD CHARACTERS IS EMPLOYED. IF TEN (10) CHARACTERS IN 
SUCCESSION ARE BAD, A NOTIFICATION IS PRINTED 

(BAD RECORD) AND THE NEXT TWENTY FIVE (25) CHARACTERS 
ARE SKIPPED BEFORE CHECKING IS RESUMED. IF THE 

BAD RECORD CONDITION OCCURS THREE (3) TIMES IN ONE 
RECORD, THE REST OF THE RECORD IS SKIPPED, DOWN 

TO THE LAST TEN (10) CHARACTERS WHICH WILL BE 

CHECKED. THE SKIPPING AND RESUMPTION OF CHECKING 

WILL ONLY BE DONE ON RECORDS WHICH ARE LONG 

ENOUGH TO ALLOW IT. 


SEQ 0020 
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C. CONDITION ERRORS: (CATASTROPHIC) 


THESE PRINTOUTS REFLECT THE STATE OF THE TAPE SYSTEM 
EITHER BEFORE OR AFTER AN OPERATION 


1. 


EOT: WHEN EOT (END OF TAPE) IS ENCOUNTERED DURING 
EITHER A READ OR WRITE, THE CYCLE IS COMPLETED 
ON THE SHORTENED BLOCK AFTER WHICH THE SLAVE 
WILL BE REWOUND AND FLAGGED AS UNAVAILABLE 
FOR TESTING UNTIL ALL SLAVES HAVE REACHED EOT AND 
ARE REWOUND. WHEN THE LAST AVAILABLE SLAVE 
HAS REACHED EOT AND BEEN REWOUND TO BOT, 
TESTING WILL BE RESUMED ON ALL SLAVES. 


. ILLEGAL BOT: WHEN A SLAVE ENCOUNTERS BOT DURING 


A READ, WRITE, OR SPACE OPERATION, AN ERROR 
IS PRINTED AND THE PROGRAM HALTED. THIS IS 

A CATASTROPHIC ERROR. TESTING MAY BE RESUMED 
BY PRESSING CONTINUE; BUT A RESTART IS 
SUGGESTED. 


. NO INTERRUPT RETURNED: EACH TAPE OPERATION SHOULD BE 


TERMINATED BY THE SETTING OF AN INTERRUPT IN 
THE CPU. IF NO INTERRUPT IS RETURNED WITHIN 
THE APPROPIATE TIME, AN ERROR IS PRINTED. 


- NO MEDIUM aa BEFORE AN OPERATION IS ATTEMPTED, 


TMO2 IS CHECKED FOR MOL. IF IT IS NOT 
SET, AN ERROR IS PRINTED, AND THE PROGRAM STOPPED. 
TESTING MAY BE RESUMED BY PRESSING CONTINUE. ~ 


. NO BOT ON To AS EACH SLAVE IS REWOUND A CHECK 


S MADE TO ASSURE THAT PROPER POSITION AT BOT 

IS ESTABLISHED. IF BOT IS NOT SET UPON COMPLETION OF 
A REWIND, AN ERROR IS PRINTED AND THE PROGRAM 
WILL HALT. PRESS CONTINUE TO RESUME TESTING. |; 


. POSITION ERROR: IF POSITION IS LOST DURING A RETRY, 


A MESSAGE IS PRINTED, THE TAPE REWOUND, 
AND REMOVED FROM TESTING UNTIL ALL ARE 
RESTARTED AT BLOCK ONE. 


BAD TAPE OVERFLOW: IF 20(8) BAD TAPE SPOTS ARE FOUND, 
A MESSAGE IS PRINTED, THE TAPE REWOUND, 
AND REMOVED FROM TESTING UNITLL ARE 
RESTARTED AT BLOCK ONE. 


. HARD READ ERROR: IF ANY HARD READ ERROR IS ENCOUNTERED 


DURING A RETRY, A MESSAGE IS PRINTED 
REGARDLESS OF tHe SETTING OF SW10. 


NON-RETRYABLE: IF ANY NON-RETRYABLE ERROR IS ENCOUNTERED, 
MESSAGE IS PRINTED REGARDLESS OF THE SETTING OF SWw10. 


SEQ 0021 





J 2 
TMO2/TU4S DATA RELIABILITY PROGRAM MACY11 30(1046) 13-JUN-78 13:40 PAGE 22 
CZTULA.P11 07-JUN-78 14:49 SEQ 0022 


K 2 
TMO2/TU4S DATA RELIABILITY PROGRAM MACY11 30(1046) 13-JUN-78 13:40 PAGE 23 


CZTULA.P11 07-JUN-78 14:49 


D. EXAMPLES: 
GLOSSARY: 
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BN = CURRENT BLOCK NUMBER 
RN = CURRENT RECORD NUMBER 
RS = RECORD SIZE, IN FRAMES 
WE = WRITE STATUS ERROR 

RE = READ STATUS ERROR 

SE = SPACE ERROR 

TM = TAPE MARK 

F = FORWARD 

R = REVERSE 


CS1 = RH/TU45 CONTROL REGISTER 
WC = RH WORD COUNT 

7. RH BUS ADDRESS 

TU45 FRAME COUNT 

$2 = RH CONTROLLER STATUS 


DS = TU45 DRIVE STATUS 

ER = TU45 ERROR REGISTER 
AS = ATTENTION SUMMARY 

CK = TU45 CHECK CHARACTER 
DB = RH DATA BUFFER 

MR = TU45 MAINTENENCE REGISTER 
DT = TUS5 DRIVE TYPE 

SN = TU45 SERIAL NUMBER 
TC = TU45 TEST CONTROL 

*F = DATA FORMAT 

: = PARITY 


DENSITY 
*PATRN = DATA PATTERN NUMBER (R = RANDOM) ¥ 


SEQ 0023 
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EXAMPLE 1: IN THIS EXAMPLE SLAVE 1 ON TMO2 0 WAS 


EXAMPLE 


OPERATING AT 1600 BPI IN ODD PARITY USING 
THE NINE CHANNEL NORMAL DATA FORMAT. A 
WRITE STATUS ERROR WAS DETECTED. THE BAD 
STATUS INDICATES THAT AN UNCORRECTABLE DATA 
ERROR (BIT 6 OF ER) AND A PE FORMAT ERROR 
(BIT 7 OF ER) OCCURED DURING THE WRITE 
OPERATION OF THE SIXTH (6) RECORD OF THE 
FIFTY (50) RECORDS IN BLOCK (2). THE 

SIZE OF THE RECORD WAS TWO HUNDRED (200) 


FRAMES. THE CHECK CHARACTER REFLECTS THE BAD TRACK. 


DRIVE NO. 0 *SLAVE NO. 1 *D 4 *P 0 *F 14 *PATRN 1 
*BN 2 *RN 6-50 *RS = 200 *WE 

CS1 144260 

CS2 100 

DS 150640 

ER 300 

wC 0 

CK 4 


2: IN THIS EXAMPLE SLAVE 3 ON TMO2 1 WAS 
OPERATING AT 800 BPI IN EVEN PARITY USING 

THE NINE CHANNEL NORMAL DATA FORMAT. A 

READ STATUS ERROR WAS DETECTED DURING 

THE REVERSE READ OF THE TENTH (10) 

RECORD OF THE 25 RECORDS IN THIS BLOCK (12). 
THE SIZE OF THE RECORD IS TWENTY (20) FRAMES. 
THE PRINTOUT INDICATES THE DETECTION OF A 
VERTICAL PARITY ERROR (VPE: BIT 6 OF ER) AND A 
CYCLIC REDUNDENCY ERROR (CRC: BIT 15 OF ER). 
THE CRC CHARACTER, AS RECEIVED, IS NOT 

AS EXPECTED AND IS PRINTED SHOWING BOTH 

THE ACTUAL (FIRST> AND THE EXPECTED (LAST). 


DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 3 
*BN 12 *RN 10-25 *RS 20 *RE R 

CS1 144276 

ER 100100 


wC 0 
CRC 767-777 


SEQ 0024 
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EXAMPLE 3: IN THIS EXAMPLE, THE HEADER IS THE SAME AS 
IN EXAMPLE TWO (2) EXCEPT THAT THE ERROR TYPE 
REFLECTS A READ ERROR IN THE FORWARD 
DIRECTION. IT IS NORMAL FOR THE SYSTEM 
TO DETECT AN ERROR IN THE FORWARD AND 
REVERSE DIRECTION AT THE SAME RECORD. 
REMEMBER THAT IN REVERSE OPERATIONS THE 
RECORD NUMBER IS COUNTED DOWN SO THAT 
RECORD NUMBER TEN (10) WILL SHOWN IN 
a POSITION IN BOTH FORWARD AND 


DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 2 
*BN 12 *RN 10-25 *RS 20 *RE F 

CS1 144270 

CS2 100 

DS 150600 

ER 100100 


wC 0 
CRC 767-777 


EXAMPLE 4: IN EXAMPLES 2 AND 3 THE READ OPERATION 
RESULTED IN BAD STATUS, HOWEVER THE 
DATA ASSOCIATED WITH THE OPERATION WAS 
NOT BAD (OR WAS NOT CHECKED: SW 13=1). | 
THIS EXAMPLE (4) SHOWS A PRINTOUT REFLECTING 
A READ STATUS ERROR ACCOMPANIED BY BAD 
DATA IN CHARACTERS FOUR (4) AND SIX (6). 


DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 2 
*BN 12 *RN 10-25 *RS 20 *RE F 

CS1 144270 

CS2 100 

DS 150600 

ER 100100 


767-777 
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EXAMPLE 5: THIS EXAMPLE SHOWS A READ DATA ERROR 


EXAMPLE 


WHICH OCCURRED, WITHOUT AN ACCOMPANING 
STATUS ERROR, WHICH RESULTED IN A BAD RECORD. 


DRIVE NO. 3 *SLAVE NO. 1 *D 4 *P OF 14 *PATRN R 
~ 100 *RN 66-200 *RS 2000 *DE F 


CN 0 
G 11111111 
B 00000000 


111111 
000000 


BAD RECORD 


6: THE FOLLOWING EXAMPLE SHOWS THE 
RESULT OF A SPACE OPERATION THAT 

SHOULD HAVE SPACED REVERSE OVER 

AN ENTIRE 100 RECORD BLOCK BUT 

WHICH TERMINATED AT THE END OF 40 
RECORDS. LEAVING A POSITION ERROR OF 40 


DRIVE NO. 2 *SLAVE NO. 6 *D 2 *P 0 *F 14 
*BN 3 *RN 100-100 *RS 1000 *SE R 
ERR AMT 40 


SEQ 0026 
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EXAMPLE 7: THIS EXAMPLE REFLECTS AN ERROR DETECTED 


WHILE WRITING A TAPE MARK (TM) AT THE END 

OF THE CURRENT DATA BLOCK PER OPTION RESPONSE 
TM=1. NOTE THAT THE TM RECORD NUMBER 

IS ONE GREATER THAN THE TOTAL NUMBER OF DATA 
RECORDS IN THE CURRENT BLOCK. 


DRIVE NO. 1 *SLAVE NO. 1 *D 2 *P 0 *F 14 
*BN 67 «RN 101-100 *RS 36 *WE TA 

CS1 144226 

CS2 300 

DS 150604 

ER 1000 

we 0 


8: THIS EXAMPLE SHOWS TWO (2) PRINTOUTS 
REFLECTING A WRITE RETRY WHICH WAS NOT 
SUCCESSFUL THE FIRST TIME, BUT WHICH 
DID RECOVER ON THE SECOND. 

THE UNSUCCESSFUL RETRY IS LOGGED AS 

A SUSPECTED BAD TAPE SPOT BY ITS 

BLOCK AND RECORD NUMBER. 


DRIVE NO. 0 *SLAVE NO. 2 *D 4 *P 0 *F 14 *PATRN 6 
*BN 2 *RN 12-20 *RS 667 *WE 
CS1 144260 


***ORIGINAL ERROR*** 


DRIVE NO. 0 SLAVE NO. 2 *D 4 *P 0 *F 14 *PATRN 6 
*BN 2 *RN 12-20 *RS 667 *WE 

CS1 144260 

CS2 100 

DS 150640 

ER 100 


we 0 

SUSPECT BAD TAPE 
RETRY: 0 

REPT: 0 


RECOVERED 
RETRY: 1 
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EXAMPLE 


EXAMPLE 
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9: IF , DURING A WRITE RETRY THE BACKSPACE 
OR THE ERASE OPERATION RESULT IN AN ERROR, 
THE ERROR WILL BE PRINTED AND THE PROGRAM 
HALTED. THIS EXAMPLE SHOWS THE ERROR PRINT 
FOR A SPACE AND AN ERASE (2 EXAMPLES) 


DRIVE NO. 1 *SLAVE NO. 1 *D 3 *P OQ *F 14 
BN 12 *RN 8-64 *RS 500 *SE RTRY 
ERR AMT 1 


DRIVE NO. 1 *SLAVE NO. 1 *D 35 *P OQ *F 14 
*BN 12 *RN 8-64 *RS 500 *ERASE 

CS1 144224 

CS2 100 

DS 150600 

ER 400 

we 0 


10: THIS EXAMPLE SHOWS THE PRINTOUT FROM 
A REWIND OPERATION WHICH DOES NOT HAVE 
BOT SET AT THE END. 


DRIVE NO. 2 *SLAVE NO. 3 *D 53 *P QO *F 14 
*BN 66 *RN 15-20 *RS 1000 
NOT BOT ON REWIND: HALT 


11: THIS EXAMPLE SHOWS THE PRINTOUT MADE WHEN 
THERE IS NO INTERRUPT RETURNED AT THE END 
OF AN OPERATION. 


DRIVE NO. 7 *SLAVE =: 7 *D 2 *P 3 *F 14 
*BN 1 *RN 25-26 *RS 1200 
NO INTERRUPT 


SEQ 0028 
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STATISTICS PRINTOUT 


THE PROGRAM, THROUGH ITS ERROR CHECKING, IS ABLE TO GATHER CERTAIN 
STATISTICS ABOUT THE PERFORMANCE OF EACH UNIT UNDER TEST. 

THIS INFORMATION IS PRINTED OUT WHENEVER A UNIT IS REWOUND 

FROM END OF TAPE, OR BECAUSE IT IS TO BE REMOVED FROM TESTING 

DUE TO SOME CATASTROPHIC ERROR. (POSITION LOST, BAD TAPE OVERFLOW) 
THE STATISTICS MAY BE PRINTED AT ANY TIME BY SETTING 

SWITCH 14 TO A ONE (1). THIS PRESENTS A PICTURE OF PERFORMANCE 

UP TO THIS TIME. THE STATISTICS WILL BE CLEARED UPON REWIND OF THE 
UNIT; BUT NOT BY SETTING SW 14. 


STATISTICS PRINT EXAMPLE (A HEADER WILL PRECEED THE STATS) 


DROPS: 03000 6 45 0 
PICKS: 10000002 
RETRY: 
WTERR: 
REF WD: 
SOFT: 
HARD: 
DEFWD: 
REREV: 
SOFT: 
HARD: 
DEREV: 
2 BAD TAPE SPOTS 
0 *BN 1 *RN 2 
1 *BN 15 *RN 100 


** NOTE ** DROPS AND PICKS REFLECT CORE BIT POSITIONS. 
THE FOLLOWING IS A TABLE OF CORE BITS TO TRACK NUMBER. 


TRACK NO. 76539182 
CORE BIT 76543210 


DROPS: DATA BITS DROPPED: PER CORE BIT(SEE NOTE ABOVE) 
PICKS: DATA BITS PICKED UP: PER CORE BIT(SEE NOTE ABOVE) 
RETRY: NUMBER OF WRITE RETRIES 
WTERR: NUMBER OF WRITE ERRORS NOT ASSOCIATED WITH BAD TAPE 

: READ FORWARD STATUS ERRORS 
READ REVERSE STATUS ERRORS 
RECOVERED READ ERRORS 
UNRECOVERED READ ERRORS 
FORWARD DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 
REVERSE DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 


oOW £& Oo VNWN — 














DEREV: 


SEQ 0029 
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AUTO SEQUENCE 


THE AUTO SEQUENCE (START AT ADDRESS 240) WILL EXECUTE A 
PREDETERMINED TEST PLAN ON ALL AVAILABLE SLAVES ON EACH 
AVAILABLE TMO2. THE ONLY OPERATOR RESPONSE IS TO THE TYPED 
REQUESTS FOR THE RH ADDRESS, VECTOR, CONTINUOUS OR SINGLE 
CYCLE, AND NRZ ONLY. ALL SWITCHES REMAIN ACTIVE AND MAY BE 
USED NORMALLY; HOWEVER THE IDEA IS TO LEAVE ALL SWITCHES 
DOWN AND ALLOW FULL EXECUTION OF THE TEST PLAN FOR 

SYSTEM CHECKOUT. 


SAMPLE START AT 240(8): AUTO SEQUENCE. 
LOAD ADDRESS 240(8), SET SWITCHES TO ZERO, PRESS START: 


TU45 AUTO SEQUENCE TEST 
ENTER CONDITIONS IN OCTAL . 


REGISTER START = 172400(172440) 
VECTOR ADDRESS = 224(CR) 

NRZ ONLY: (0) 

AUTO CONT: (1) 


THIS EXAMPLE SHOWS AN AUTO SEQUENCE START WITH THE RH 
AT BUS ADDRESS 172440 AND A VECTOR OF 224. ALL AVAILABLE 
HARDWARE WILL BE TESTED CONTINUOUSLY IN BOTH NRZ AND PE MODE. 


AS EACH TMO2 AND ITS SLAVES ARE FOUND, A DIVIDER LINE OF 
ASTERICKS WILL BE PRINTED FOLLOWED BY A PRINTOUT OF THE 
TMO2 AND ITS SLAVES BEING TESTED. AS EACH TMO2 AND 

ITS SLAVES ARE FINISHED, ANOTHER DIVIDER IS PRINTED 
BEFORE TESTING IS RESUMED ON THE NEXT AVAILABLE DRIVE. 


WHEN ALL AVAILABLE HARDWARE HAS BEEN TESTED, 

A PRINTOUT OF END OF SEQUENCE WILL BE DONE AND THE 
PROGRAM WILL EITHER HALT (AUTO CONT = 0) OR RESTART WITH 
THE FIRST AVAILABLE UNIT (AUTO CONT = 1). 


SEQ 0030 
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(PAGE 25) 
AUTO SEQUENCE TEST PLAN: 
THE AUTO SEQUENCE WILL EXECUTE BOTH AN NRZ AND A PE 
CYCLE. EACH CYCLE WILL BE STARTED FROM BOT AND CONSIST 
OF VARIOUS DATA PATTERNS INTENDED TO BE WORST CASE 
FOR THAT PARTICULAR MODE. 
1. NRZ CYCLE: 
SIX (6) BLOCKS OF ONE HUNDRED (100) RECORDS 


OF FOUR THOUSAND (4000) CHARACTERS FOR 
EACH OF THE FOUR DATA PATTERNS. 


PATTERN 1: ALL ONES DATA IN ALL BYTES 
PATTERN 10: WALKING ONE/ALL ONE 
PATTERN 14: WALKING ZERO/ALL ZERO 


RANDOM DATA: RANDOM 
2. PE CYCLE: (IF NRZ ONLY = 0) 


SIX BLOCKS OF ONE HUNDRED (100) RECORDS 

OF FOUR THOUSAND (4000) CHARACTERS EACH FOR 
EACH OF THREE DATA PATTERNS, THEN RANDOM 
DATA BLOCKS TO END OF TAPE. 


PATTERN 10: WALKING ONE/ALL ONE 
PATTERN 14: WALKING ZERO/ALL ZERO 
PATTERN 15: THREE (3) 0 CHARACTERS, TWO (2) ALL CHARACTERS, THREE 0 CHARACTERS, 


THEN COMPLIMENT PATTERN. REPEATED FOR A FULL BUFFER 
RANDOM DATA: RANDOM 


3 
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CZTUIA.P11 


12. 


13. 


(PAGE 26) 


- TESTING PROCEDURES 


AS PREVIOUSLY STATED THIS PROGRAM CONTAINS NO 

FIXED TESTS. THE ENTIRE TEST CYCLE TO BE EXECUTED 

1S DESCRIBED BY THE OPERATOR THOUGH RESPONSES TO 

TELETYPE REQUESTS FOR PARAMETERS AND CONSOLE SWITCH 
SETTINGS FOR OPERATION. THE OPERATION SELECTED WILL 

BE EXECUTED WITH THE PARAMETERS ENTERED CONTINUOUSLY 

ON EACH AVAILABLE UNIT, ONE BLOCK AT A TIME, UNTIL 

STOPPED BY THE OPERATOR. THE OPERATION MAY BE CHANGED 
DYNAMICALLY BY CHANGING THE CONSOLE SWITCHES AT ANY 

TIME. THE PROGRAM WILL ATTEMPT TO PERFORM ANY OPERATION 
SET AND THEREFORE CAUTION SHOULD BE TAKEN TO ASSURE THAT 
THE UNIT IS CAPABLE OF PERFORMING AS REQUESTED. FOR 
INSTANCE, ONE SHOULD NOT ATTEMPT TO PERFORM READ OPERATIONS 
ON A TAPE WHICH HAS NOT BEEN WRITTEN AS THE DATA, IF ANY. 
1S UNPREDICTABLE. HOWEVER, IF A TAPE HAS BEEN WRITTEN WITH 
THIS PROGRAM, IT CAN BE READ AS OFTEN AS DESIRED WITHOUT 
BEING REWRITTEN. THIS IS A GOOD PROCEDURE TO USE FOR 
TESTING TAPE COMPATABILITY. SCOPING OF TAPE UNITS BECOMES 
SIMPLE; BY SETTING THE DESIRED OPERATION AND ITS PARAMETER, 
A UNIT MAY BE CONTINUOUSLY EXERCISED IN ANY MANNER DESIRED. 
BY USING THE VARIOUS ERROR CONTROL SWITCHES AND ENTERING 
THE NEEDED STALL. ANY FUNCTION CAN BE SCOPED RATHER 

EASILY. RELIABILITY TESTING CAN BE PREFORMED BY USE 

OF THE RANDOMIZATION CAPABILITY. PERHAPS A CYCLE OF 
RANDOM TESTING MIGHT BE SET UP AND ALLOWED TO RUN 

FOR SOME PERIOD OF TIME, THE STATISTICAL COLLECTION 

OF DROPS AND PICKS IS THEN SIGNIFICANT. INTERMITTANT 
PROBLEMS CAN BE FOUND BY SETTING THE DESIRED OPERATION 

IN MOTION AND DISALLOWING ERROR PRINTOUTS WHILE ALLOWING 

A HALT ON ERROR. THE ERROR THAT CAUSED THE HALT CAN 

BE PRINTED BY RESETTING CONSOLE SWITCH TEN AND PRESSING 
CONTINUE. IF SOME PARTICULAR DATA PATTERN SHOULD BE 
CAUSING DATA ERROR, USE OF THE YOZZLE SWITCH AND ITS 
ASSOCIATED STALL WILL TO ALLOW SCOPING OF THIS 

PARTICULAR RECORD. 


AS YOU SEE, THERE ARE MYRIAD TESTING PROCEDURES WHICH 

COULD BE PERFORMED. THE PARAMETERS, TAPE OPERATIONS, ERROR 
EXAMINATION AND REPORTING ARE ALL AT YOUR DISCRETION. 

TRY IT, YOU'LL LIKE IT. 


LISTING 


SEQ 0032 


TMO2/TU4S DATA RELIABILITY PROGRAM 
CZTUIA.P11 749 


07-JUN-78 14 


-LIST  SEQ,LOC,B 


MACY11 30(1046) 


H 3 
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TITLE inaz/tu4s DATA RELIABILITY PROGRAM 


Z2-C2ZT 

:15 MAY 19 

*R. BARNES/R. J. COLLINS 

.ENABLE ABS 

sCONSOLE SWITCHES *eettereeeere 
:SW15: 1=STOP ON ERROR 

: O=CONTINUE ON ERROR 

:SW14: 1=PRINT READ/WRITE STATS 

; 0=D0 NOT PRINT STATS 
:SW13: 1=DO0 NOT CHECK DATA 

: O=CHECK DATA 

:S$W12: 1=DO NOT CHECK WRITE ERRORS 
: O=CHECK WRITE ERRORS 
:SWi1: 1=DO0 NOT CHECK READ ERRORS 
: O=CHECK READ ERRORS 

:$W10: 1=DO0 NOT PRINT ERRORS 

; O=PRINT ERRORS 

:SW9: 1=REWIND TAPE 

; 0=D0 NOT REWIND 

:$W8: 1=USE RANDOM DATA 

: O=USE FIXED DATA PATTERN 
:SW7: %1=USE RANDOM CHARACTER COUNT 
: O=USE FIXED CHAR COUNT . 
:SW6: 1=USE RANDOM RECORD COUNT 

é O=USE FIXED RECORD COUNT 
:SW5: 1=YOZZLE ON CURRENT RECORD 
: 0=D0 NOT YOZZLE 

:SW4: 1=D0 BOTH READ AND WRITE RETRIES 
: O=INHIBIT RETRIES 

:SW3: 1=DO NOT READ FORWARD 

: O=READ FORWARD 

:SW2: 1=DO NOT READ REVERSE 

$ O=READ REVERSE 

:SW1: 1=READ FORWARD FIRST 

: O=READ REVERSE FIRST 

3 SW 1=D0 NOT WRITE 


O=WRITE 


SEQ 0033 
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s€Si: 


3 SN: 


=#C% 


>TU45S REGISTER BITSeettereres 


315 314 313 312 311 5:10 ;09 ;08 ;07 ;06 ;05 ;04 503 ;02 ;01 ;00 ; 
£00309000000003 5000009300000 0350905000090 0990000 0900000 
:SC ; TRE; SACP; SPR; ; DNA; PSL; sAI7; Al6; RDY; IE : FUN; FUN; FUN; FUN; FUN; GO ; 


©0005 00010 ITI IORI III TRIO 


; WORD ; 


; COUNT s 
5 OKI III III III II 
* ADDRESS 
ERR 
: COUNT : 
£00000 222222 XX XXXII IK 
;DLT:WCE;UPE;NED;NEM;PGE;MXF:MDP;OR ;1R ;CLR:PAT;BAI:U2 ;U1 ;U0 ; 


MTTTTTTTTTTTTTTLTTTTTTTTTTTTTTITITTTTTTERTTTR TTT TRE TTT TE TET, 
sATA; sERR; PIP; sMOL; sWRL; sEOT; SPR; ‘DPR; DRY; sSSC; sPES; SDN; IDB; EOF ; ;BOT; SLA; 


MTTTTTTTRTTTTTRTTITTTETITITITTTLTITTTTETTTTERTTE TTT tat et. 
> CDE SUNS; ;OPI; sDTE; s NEF; CS sFCE; :NSG; PEF; INC; DAT; FMT; s CNT; RAR; ILR; ILF; 
CRC; 11M: sLRC; VPE: BPE; ;BPE; 

© OIG 200110 0000 TAHT IIIT IIIT 


: : ATTENTION ; 


SUMMARY ; 
ieee commer ceeemmmammemamaa 


: CHARACTER : 
7 WgerEseran ane tere cemecemmmmmmer 


- BUFFER : 
5 OCI IOI AAA AIX AIK A AAAI 
:DB :DB :DB :DB ; ‘e ig “a :0B ay ¥ : WRT; AM ~ +e :OP : OP 7mm : 
acannon cesta 
: TYPE :CH : SPR: : 
5 OOK TIA TOIT AIA AAI ADAH KK 
e L e 
; NUMBER 

MOTT HITTTTTTTTRTRTRTTTTTTTRTTTT TTT TOTETTTTCTET TREE TTT TTT TT 
SACL: FCS: TCW: ENA; SPR: ; DEN; DEN; DEN; FAT: FMT: FMT; FMT; EVN; SSN; SSN; SSN; 

“DT; 4: 8: 2: 1 :PAR: 1 

RTT TTTTTTTRTITTTITTRTTTTTTETTRTTTTLTTTERELERTULTRTETTRER TUTE ET 


SEQ 0034 
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1415 


POPU) 
Wn Oo Dane 


— = od sd od 
ELL LS 


000060 
000062 
000200 
000204 
000210 
000214 


000224 
000226 


000240 
000244 


022626 


000000 
000200 


000060 
022142 
000000 


000200 
000167 


000204 
000167 


000210 
005067 
000167 


000224 
022216 
000340 


000240 
005267 
000167 


002622 


002640 


014774 
002640 


000472 
002562 
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SEQ 0035 


sREGISTER EQUIVSteeteererere 
RO=Z0 
R1=%1 
R2=22 
R3=25 
R4=24 
R5=25 
SP=%6 
PC=2%7 
NOP=240 
POPSP=5726 
POPPOP=22626 
STRAP CATCHERS tttteeteree 
-=0 
-REPT 200 
HALT 
~ENDR 
sTTY INTERRUPT VECTOReteeeeeeee 
.-=60 
— : TTY INTERRUPT HANDLER ADDRESS 
SSTART ADDRESSttetetecee 
.=200 
JMP START sENTER PARAMETERS VIA TTY 
-=204 
JMP STARTC :USE FIXED PARAMETERS; HOLD DATA 
CLR RDFL 
JMP STARTA sUSE FIXED PARAMETERS: NEW DATA 
:MAG TAPE INTERRUPT VECTOReeteeeeeee 
Hil :MAG TAPE INTERRUPT HANDLER ADDRESS 
sAUTO SEQUENCE START eeteeeeeee ¥ 
.=240 
INC ASEQF :SET AUTO SEQUENCE FLAG 
JMP STAUT :GO TO START OF AUTO SEQUENCE 
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ae >SHORT CONVERSATION RESTART*tteeee 

1460 000300 .=300 

1461 000300 005267 013642 INC SCVFL ;SET SHORT CONVERSATION FLAG 
bre 000304 000167 002516 J&P START sENTER SHORT PARAMETER LIST 
1464 000510 .=510 

vas :TU45 REGISTER EQUIVSstterteree 

1467 000510 172440 ci: 172440 

1468 000512 172442 WC: 172442 

1469 000514 172444 BA 172444 

1470 000516 172446 FC 172446 

1471 172450 cs 172456 

1472 000522 172452 DS 172452 

1473 172454 ER 172454 

1474 172456 AS 172456 

1475 172460 cc 172460 

1476 000532 172462 DB 172462 

1477 172464 MR 172464 

1478 000536 172466 DT 172466 

1479 000540 172470 SN: 172470 

by 000542 172472 C2: 172472 
re s CONSTANTStteteerete 

1484 000544 172440 REGS: 172440 sSTARTING REGISTER ADDRESS (CS1) 
1485 000546 000224 VECT: 224 :VECTOR ADDRESS (RH INTERRUPT) 
1486 000550 000000 DVN: 0 sDRIVE NUMBER 

1487 000552 000000 UDES: 0 sUNIT DESCRIPTION (PARITY,DENSITY,UNIT. FORMAT) 
1488 000554 000100 RCNT: 100 sRECORD COUNTER 

1489 000556 177600 FMCNT 177600 “NUMBER OF CHAR (4 - 4000) OCTAL oe _ COMPLEMENT 
1490 000560 000001 PATRN: 1 :DATA PATTERN SELECTOR (0 - 15) O 
1491 000562 000002 RDCMD: 2 sREAD COMMAND 

1492 000000 TMEX 0 : TAPE MARK FLAG: 1=TM O=NO TM 
1493 000000 INTRF: 0 : INTERCHANGE READ 0=NO 

4 000570 000000 SPFLG: 0 : SINGLE PASS 1=YES 0=NO 

1495 000572 000001 RSTAL: 1 READ ey L 

4 000001 WSTAL: 1 “WRITE STALL 

1497 000576 000001 TSTAL: 1 s TURN AROUND STAL 

1498 00 002000 YSTAL: 2000 :YOZZLE STAL 

1499 000602 000010 RETRY: 10 sREAD RETRY NUMBER 

1500 000604 177776 PSW: 177776 ;PROCESSOR STATUS 

1501 000606 177570 SWR: 177570 sCONSOLE SWITCHES 

1502 000610 177560 TKS: 177560 s TTY READ STATUS REGISTER 

1503 000612 177562 TKB: 177562 sTTY READ BUFFER 

1504 000614 177564 TPS: 177564 :TTY PUNCH STATUS REGISTER 

1505 000616 177566 TPB: 177566 :TTY PUNCH OUTPUT REGISTER 

1506 000620 177550 PRS: 177550 :H/S READER STATUS REGISTER 
1507 000622 177552 PRB: 177552 :H/S READER BUFFER 

1508 000624 153624 RANBAS: 153624 RANDOM NUMBER GENERATOR BASE 
1509 000626 032561 RANSAV: 032561 “RANDOM NUMBER BUFFER 

1510 000630 000000 RCSAV: 0 RECORD COUNT SAVE 

1511 000632 000000 FCSAV: 0 ;FRAME COUNT SAVE 
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1512 
aE sFLAGS AND COUNTERSttteeetees 
1515 000634 000000 MOLSW: 0 ;MOL ERROR PRINT SWITCH 
1516 000636 000000 TINF: 0 : TTY ENTERY FLAG 
1517 0000 TOB: 0 :TTY OUTPUT BUFFER 
1518 000642 000000 TIB: 0 ;TTY INPUT BUFFER 
1519 000644 000000 TEMP1: 0 ; TEMP STORAGE 
1520 6 000000 TEMP2: 0 ; TEMP STORAGE 
1521 000650 TEMP5: 0 > TEMP STORAGE 
1522 000652 000000 NRZOF: 0 s;NRZ ONLY FLAG 
1523 000654 000000 EMADDR: 0 ;ERROR MSG ADDRESS STORAGE 
1524 000656 000000 BLCNTR: 0 ;BLOCK COUNTER 
1525 000000 0 ;BAD RECORD COUNTER 
1526 000662 000000 EOTREC: 0 ;EOT FLAG 
1527 000000 RTRN 0 s INTERRUUPT RETURN STORAGE 
1528 00 HDRFL: 0 sHEADER FLAG 
1529 000670 000000 STAL 0 sDELAY STORAGE 
1530 000672 000000 PFLG 0 ;PRINT FLAG 
1531 74 000000 MTC1 0 sMAG TAPE CONT REGISTER BUFFER 
1532 000676 0000 UNP 0 ;UNIT TABLE POINTER 
1535 700 000000 TMFLG: 0 ; TAPE MARK FLAG 
1534 000702 000000 RPCNT: 0 ;REPEAT COUNTER 
1535 000704 000000 RTCNT: 0 sRETRY COUNTER 
1536 0007 000000 DERFL: 0 DATA ERROR FLAG 
1537 000710 000000 SERFL: 0 :STATUS ERROR FLAG 
1538 000712 000000 BCNT 0 ;BIT COUNTER 
1539 000714 000000 RTYFL: O RETRY FLAG 
1540 000716 000000 UPS 0 sUNIT POINTER SAVE 
1541 000720 000000 BDPP 0 :BITS DROPPED POINTER 
1542 000722 00000 BPKP 0 :BITS PICKED POINTER 
1543 000724 000000 ERSAV: 0 sERROR SAVE LOC 
1544 000726 000000 BIFLG: 0 ;BAD TAPE FLAG 
1545 000730 000000 BISTF: O sSTATISTIC PRINT FLAG 
1546 000732 000000 BIPT 0 :BAD TAPE POINTER 
1547 000734 000000 ERTFL: 0 sERASE FLAG 
1548 000736 000000 ASEQF: 0 ;AUTO SEQ FLAG 
1549 000740 00.900 ADRVN: 0 ;UTO SEQ DRIVE NUMBER 
1550 000742 000000 ABLCNT: 0 ;AUTO BLOCK COUNTER 
1551 000744 000000 ASEQCF: 0 ;AUTO SEQ CONTINUOUS FLAG 


tyes J DATA RELIABIL'TY PROGRAM 
07-JUN-78 14:49 


CZTU 


177777 


001210 


001570 


001610 
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sUNIT ORDER AND DESCRIPTION TABLE *eteetaaee 


UN1: 0 : THIS TABLE IS LOADED 
UN2: 0 :WITH UNIT NUMBERS AND 
UNS: 0 s THEIR DESCRIPTIONS IN 
UNG : 0 :THE ORDER THAT THEY 
UNS: 0 sWILL BE TESTED 
UN6: 0 
UN7: 0 
UNS: 0 
UNX: -1 
:UNIT DROPS AND PICKS POINTERS*tttexnne 
PIKi:  BPOO 
PIK2: BP10 
PIK3:  BP20 
PIKkK4: BP30 
PIK5: BP40 
PIK6:  BP50 
PIK7: ®8P60 
PIk8:  BP70 
DRP1:  8BDO00 
DRP2:  BD10 
DRP3: 8020 
DRP4 BD30 
DRP5 BD40 
DRP6 BD50 
DRP7 BD60 
DRP8 8D70 


BTADDR: _ 


=» 

— 

~< 

Ww 
coooooo°o°o * 


sUNIT WRITE ERRORS teteeeeere 


SEQ 0038 
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1608 001070 000000 WIER1: 0 

1609 001072 000000 WIER2: 0 

1610 001074 000000 WIER3: 0 

1611 001076 000000 WIER4: 0 

1612 001100 00000 WTER5S: 0 

1613 001102 000000 WTER6: 0 

1614 001104 000000 WIER7: 0 

by oF 001106 000000 WTER8: 0 

Ly 94 ;UNIT READ FORWARD ERRORS*ttetteeene 
1619 001110 000000 RDER1: 0 

1620 001112 000000 RDER2: 0 

1621 001114 000000 RDER3: 0 

1622 001116 000000 RDER4: 0 

1623 001120 000000 RDER5: 0 

1624 001122 000000 RDER6: 0 

1625 001124 000000 RDER7: 0 

1ese 001126 000000 RDER8: 0 

ies sUNIT DATA ERRORS FORWARDettteeenee 
1630 001130 000000 DATER1: 


0 
1631 001132 000000 : 
1633 001136 000000 ; 
0 
0 
0 


yg 001146 000000 
1639 sUNIT READ REVERSE ERRORS*tteeene08 
1641 eerie 000000 RDERR1: 


0 
0 
1644 001156 000000 : 
0 

000000 0 
1648 001166 000000 0 


1650 sUNIT DATA ERRORS REVERSEtttteeneee 
1652 001170 000000 DEREV1: 





0 

0 

1655 001176 000000 0 
200 0 

0 

0 

0 
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CZTUILA.P11 07-JUN-78 14:49 SEQ 0040 
Ur :DROPS + PICKS PER CHANNEL PER UNI Teteeatanan 
1662 001210 000000 BPOO: 0 
1663 001230 -=.+16 
1664 001230 000000 BP10: 0 
1665 001250 -=.+16 
1666 001250 000000 BP20: 0 
1667 001270 =. #16 
1668 001270 000000 BP30: 0 
1669 001310 .=.+16 
1670 001310 000000 BP40: 0 
1671 001330 -=.+16 
1672 0013350 000 BP50: 0 
1673 001350 ~=.+16 
1674 001350 000 BP60: 0 
1675 001370 -=.+16 
1676 001370 000000 BP70: 0 
1677 001410 ~=.+16 
1678 001410 000000 BDO00: 0 
1679 001430 -=.+16 
1680 001430 000000 BD10: 0 
1681 001450 -=.+16 
1682 001450 000000 BD20: 0 
1683 001470 -=.+16 
1684 001470 000000 BD30: 0 
1685 001510 o=.*16 
1686 001510 000000 BD40: 0 
1687 001530 -=.+16 
1688 001530 000000 BD50: 0 
1689 001550 -=.*16 
1690 001550 000000 BD60: 0 
1691 001570 ~=.+16 
1692 001570 000000 BD70: 0 
cone 001610 -=.+16 


CZT 


NN NN NNN NNN NS SSS 


MORI AIA POR A) Se 2 Pt ot 
SMSOAULWM = CO O@WOuUflWN—oO 


me ee em ee ee ee a a eed eed) ed od od od ww I od = ow!) SS 8 8 


001610 
001714 
002020 
002124 
002230 
002334 
002440 
002544 


002650 
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000000 


002650 


000000 


000000 


000000 


00 
000000 
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BT00: 
BT01: 
BT02: 
BT035: 
BT04: 
BT05: 
BT06: 
BT07: 


EOTCO: 


RFSOFT: 


RRSOFT: 


:UNIT BAD TAPE COUNTER:16 PER SLAVE**steenne8 


> 


-+102 
=.+102 
=.+102 
=.+102 
=.+102 
=.+102 
=.+102 ” 
=.+102 
UNIT END OF TAPE COUNTERS 1 PER SLAVE®**«««« 


0” 
0 
0 
0 
0 
0 
0 


oooo°o°o°coe 


sUNIT READ FORWARD SOFT ERROR***ee0% 


oooocec]He 


;UNIT READ REVERSE SOFT ERROR*#eeeexe 


ooooo°o°ooe 


SEQ 0041 
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002730 


002746 


002750 


002766 


002770 


003024 


000000 


000000 


000000 
000000 


002770 


015070 


MACY11 30(1046) 


RFHARD: 


RRHARD: 


DATAI4: 
DATA15: 


4 
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sUNIT READ FORWARD HARD ERROR*ettee%* 


sUNIT READ REVERSE HARD ERROR**ee0%% 


ooooo°o°co 


:DATA PATTERN GENERATORS tteeeeeeenran 


sENTRY TABLE 
el ame INPUT FROM H/S READER(SEE ZZ-CZTUNAO) 


sALL ZEROS 
sWALKING ONE 


;WALKING ZERO 

; ALTERNATING ONE/ZERO 

s ALTERNATING ZERO/ONE 

; ALTERNATING ONE/ZERO IN ALTERNATING CHARACTERS 


sWALKING ONE/ALL ONE IN ALTERNATING CHARACTERS 
sALL BITS 0-377 

;ALL BITS 377-0 

ALTERNATING CHARACTERS 0 AND 377 

:WALKING ZERO/ALL ZERO IN ALTERNATING CHARACTERS 


:AUTO SEQUENCE PATTERN 0,0,-1.-1.-1,0,0 


SEQ 0042 





C21 


kd ed ed ed ed ed ed ed sd ed 
Oo op 09 C9 Co 09 Co 09 OD OO Oo 
SS ee a ee 
DOnNOULSWN oO 


003026 


003244 


005067 
012767 


012777 


175704 
000001 
012144 
000014 
175562 
000064 
175552 
000640 
000037 


000500 


000750 


177777 


000040 
000746 
000746 


001550 


001542 
175370 
000100 


TMO2/TU4S DATA ogee he PROGRAM 
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175576 


011252 
175512 


175426 
175330 


000746 


175336 


MACY11 30(1046) 


START: 
STAUT: 


STARTC: 


STARTA: 
STARTB: 


STARTO: 


STARTF: 


STARTE: 
STARTD: 


STAUTO: 
STAROA: 


STAROB: 


START: 


EVEN 


E 
13-JUN-78 


4 
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SEQ 0043 


SRE EAA AERA EAAAAAA AAA AAA ARATE RARER AAAKAEHEERE ARES 


sPROGRAM START AND SEQUENCE FORMATTER: 


;THIS ROUTINE IS USED TO PERFORM ALL HOUSEKEEPING, 
;DECIDE WHICH TRANSPORT TO TEST AND ITS AVAILABILITY, 
;LOAD THE WRITE BUFFER WITH THE SELECTED DATA PATTERN, 
;GENERATE ANY RANDOM NUMBER AND THEN EXECUTE 

;THE TEST CYCLE REQUESTED BY THE SWITCH SETTING. 

:AT THE END OF THE TEST CYCLE THE NEXT UNIT IS SELECTED 
:AND CHECKED FOR AVAILABILITY AND THE TEST CYCLE IS 


sEXECUTED ON IT. 


;THE READ WRITE STATS MAY BE PRINTED AT THE END OF 
SEACH TEST CYCLE VIA CONSOLE SWITCH FOURTEEN (14). 


SERRE REET AAA EA AE TEA ER AEE RA TEER AREER ARAEEREERERES 


PC .RANSET 
#RTY1,RO 
#750,R1 


(RO) + 
R1 
STARTF 


#-1,PATS 
#1,BLCNTR 
#500,SP 

#340 ,aPSW 


PC, TINP 
#40,aCs 
RO 


UN1(RO> 


aes 


(RO) 
7100000, UN1 (RO) 
#2,R0 


STAROA 


UN1 (RO) 
REOTC,R3 


R 
R3,REOTC 
MOL SW 
#100,aTKS 


;CLEAR AUTO SEQUENCE FLAG 
;SET TTY ENTRY FLAG 
;CLEAR RANDOM DATA FLAG 


;CLEAR TTY INPUT FLAG 
sCLEAR TTY ENTRY FLAG 


;CLEAR FLAGS AND COUNTERS 


;SET STACK POINTER 
:GO RESET RANDOM BASE 


:CLEAR STATISTIC COUNTERS 


:PRESET PATTERN 
;PRESET BLOCK COUNTER 


:GO GET PARAMETERS FROM TTY 
; INITIALIZE 

sPOINT TO FIRST ENTRY 

;SEE IF LAST ENTRY 

;IF SO: BR 


;CLEAR EOT FLAG 
:POINT TO NEXT UNIT ENTRY 
; CONTINUE CLEARING 


;RESTORE EOT CNTR 
;;RESET OFFLINE Sw 
;SET TTY INTERRUPT ENABLE 


TMO2/TU4S DATA gt re, BH a 


CZTUILA. 


P%1 


003252 


016700 


000167 


07-JUN-78 1 


‘ 


175420 
000746 


000746 


175424 
175336 


000746 
175322 
175336 


175330 
000746 


000746 
000200 


006652 
000400 


011530 
000100 


006662 
100000 


000554 
175102 
175076 
000200 


175176 
017500 
0261135 
020412 


177710 


040000 


000001 
017376 
000004 
000316 


175254 


175420 


175170 
175216 


175202 


175166 


000746 


175050 
175064 
175036 


175130 


175112 
175016 


MACY11 30(1046) 


STARIA: 


STAR1B: 


STARIC: 


START2: 


STARTS: 


START4: 


STAR4SO: 


STARGA: 


F 4 
13-JUN-78 13:40 PAGE 44 
SEQ 0044 

UNP ,RO ;RO = UNIT TABLE POINTER 
UN1 (RO) 
STAR1B : IF LAST UNIT IN STRING: BR 
UN1 (RO) 
UN1 (RO) ,UDES ;LOAD NEXT UNIT DESCRIPTION 
STARTS 
BLCNTR ;BUMP BLOCK COUNTER 
ASEQF ;SEE IF AUTO SEQ 

TARIC ; IF NOT: BR 
BLCNTR,ABLCNT SEE IF “DONE SEQ 

ARIC :1F NOT: BR 
UN1 (RO) sRESET UNIT TABLE TERMINATOR 
BLCNTR ;RESET BLOCK CNTR 
UNP ;RESET UNIT POINTER 
PC sRETURN TO AUTO SEQ 
UNP 
UN1(RO) 
UN1(RO) ,UDES ;LOAD FIRST UNIT DESCRIPTION 

00.aSuR ;SEE IF RANDOM RECORD SIZE 
START2 : IF NOT: BR 
PC,CCNTR :GO GENERATE RANDOM RECORD SIZE 
#400 ,aSwR ;SEE IF RANDOM DATA 
STARTS :1F NOT: BR 
PC.DATR :GO GENERATE RANDOM DATA 
#100 ,aSuR :SEE IF RANDOM RECORD COUNT 
START4 :1F NOT: BR 
PC,RCNTR :GO GENERATE RANDOM RECORD COUNT 
#100000,UN1(RO) ;SEE IF REACHED EOT 
STAR4O :1F NOT: BR 
START? sELSE GO TO NEXT UNIT 
DVN,a@Cs ;SET DRIVE NUMBER 
UDES aCe ;SET UNIT NUMBER 
#200,a0S sSEE IF UNIT AVAIL 
STAR4A IF SO: BR 
STAL 
START4 sAWAIT TUR 
PC ,PAPRT sPRINT HEADER 
#ASG49 ,R4 
PC, TTOUT ores NOT AVAIL 
START4 RETRY 
PC ,DSUP :GO SET UP WRITE DATA 


PC ,,RWND ;REWIND ‘ 


PC ,WRITE WRITE 

TSTAL, STAL ;SET TURN AROUND DELAY 
PC, STALL ; DELAY 

PC,RSEQ :GO TO READ SEQUENCER 
TSTAL $1 oSTAL :SET TURN AROUND DELAY 
740000 ,aSUR ;SEE IF SHOULD PRINT STATISTICS 
STARTS ; IF NOT: BR 

#71,RO0 :SET RECORD COUNTER TO 1 
PC,PAPRT ;PRINT CYCLE NUMBER 

4 Th ia ;GO PRINT STATS 

STPX 


o- 


G 4 
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CZTUIA.P11 07-JUN-78 14:49 SEQ 0045 
1902 003612 004767 013530 STP: JSR PC ,DPPRT :PRINT DROPS AND PICKS 
1903 003616 012704 (26325 MOV #MSG65,R4 , 
1904 003622 004767 020274 JSR PC, TTOUT :PRINT RETRY TOTAL 
1905 003626 016704 175044 MOV UNP ,R4 
1906 003632 016403 001050 MOV RTY1(R4),R3 
1907 003636 004767 020432 JSR PC,OCTP :PRINT RETRIES 
1908 003642 012704 026476 MOV #MSG73,R4 
1909 003646 004767 020250 JSR PC, TTOUT :PRINT WRITE ERROR TAG 
1910 003652 016704 175020 MOV UNP ,R4 
1911 003656 016403 001070 MOV WTER1(R4),R3 
1912 ' 003662 004767 020406 JSR PC,OCTP :PRINT WRITE ERRORS 
1913 003666 012704 026465 MOV #MSG72,R4 
1914 003672 004767 020224 JSR PC, TTOUT -PRINT READ FORWARD ERROR TAG 
1915 003676 016704 174774 MOV UNP ,R4 
1916 003702 0616403 001110 MOV RDER1(R4),R3 
1917 003706 004767 020362 JSR PC,OCTP :PRINT READ FORWARD ERRORS 
1918 003712 012704 027305 MOV #MSG113,R4 
1919 003716 004767 020200 JSR PC, TTOUT PRINT SOFT TAG 
1920 003722 016704 174750 MOV UNP ,R4 
1921 003726 016403 002670 MOV RFSOFT(R4) ,R3 
1922 003732 004767 020336 JSR PC,OCTP PRINT FORWARD SOFT ERRORS 
1923 003736 012704 027316 MOV #MSG114,R4 
1924 003742 004767 020154 JSR PC, TTOUT :PRINT HARD TAG 
1925 003746 016704 174724 MOV UNP ,R4 
1926 003752 016403 002730 MOV RFHARD(R4) ,R3 
1927 003756 004767 020312 JSR PC,OCTP PRINT HARD FORWARE ERRORS 
1928 003762 012704 026556 MOV #ASG77,R4 
1929 003766 004767 020130 JSR PC, TTOUT -PRINT DATA ERROR FORWARD TAG 
1930 003772 016704 174700 MOV UNP ,R4 
1931 0603776 016403 001130 MOV DATER1(R4) ,R3 
1932 004002 004767 020266 JSR PC,OCTP :PRINT DATA ERROR FORWARD NUMBER 
1933 004006 012704 026361 MOV #MSG68 RS 
1934 004012 004767 020104 JSR PC, TTOUT :PRINT READ ERROR REVERSE TAG 
1935 004016 016704 174654 MOV UNP ,R4 
1936 004022 016403 001150 MOV RDERR1(R4) RS 
1937 004026 004767 020242 JSR PC,OCTP PRINT REVESE ERROR NUMBER 
1938 004032 012704 027305 MOV #MSG113,R4 
1939 004036 004767 020060 JSR PC, TTOUT :PRINT SOFT TAG 
1940 004042 016704 174630 MOV UNP ,R4 
1941 004046 016403 002710 MOV RRSOFT(R4),R3 
1942 004052 004767 020216 JSR PC,OCTP PRINT REVERSE SOFT ERROR 
1943 004056 012704 027316 MOV #ASG114,R4 
1944 004062 004767 020034 JSR PC, TTOUT :PRINT HARD TAG 
1945 004066 016704 174604 MOV UNP ,R4 
1946 004072 016403 002750 MOV RRHARD(R4) ,R3 
1947 004076 004767 020172 JSR PC,OCTP 
1948 004102 012704 026545 MOV #ASG76,R4 
1949 004106 004767 020010 JSR PC,TTOUT PRINT DATA ERROR REVERSE TAG 
1950 004112 016704 174560 MOV UNP ,R4 
1951 004116 016403 001170 MOV DEREV1(R4),R3 
1952 004122 004767 020146 JSR PC ,OCTP :PRINT DATA REVERSE ERROR NUMBER 
1953 004126 000207 RTS PC : RETURN 
1954 004130 005267 174574 STPX: INC BISTF SET STAT ONLY PRINT 
1955 004134 004767 003102 JSR PC ,BTPRT PRINT BAD TAPE STATS 
1956 004140 005067 174564 CLR BISTF “CLEAR FLAG 


1957 004144 017700 174436 ~ STARTS: MOV aSwR,RO ;LOAD SWR 


| 
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004260 


07-JUN-78 


042700 
0 


000167 
012767 


000207 


177762 
000015 


000200 
174472 
016774 
026115 
017706 


000002 
177014 


153624 


174354 


174332 


174452 


174366 
174362 
174302 
174276 


MACY11 30(1046) 


START6: 


START?: 
START8: 


RANSET: 


H 
13-JUN-78 


#177762,R0 
#15,R0 


PC,PAPRT 
#ASG49,R4 
PC, TTOUT 


#2,UNP 
START1 


4 
13:40 PAGE 46 


SEQ 0046 


;MASK READ/WRITE SWITCHES 
Ay IF fey READ OR WRITE 


;I1F NOT: B 
: SEE IF HAVE UNIT READY 
F SO: BR 


:DELAY FOR TUR 
;PRINT HEADER 


;PRINT NOT AVAIL 
; STOP 


“POINT TO NEXT UNIT 
: CONTINUE 


BASE RESETetteeeeeee 


#153624,RANBAS ;RESET BASE 
#32561.,RANSAV ;RESET BUFFER 
RCSAV,RCNT ;RESET RECORD COUNT 
cas ;RESET FRAME COUNT 


TMO2/TU4S DATA gene ee PROGRAM 
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004262 
70 
004276 
04 


07-JUN-78 1 


016777 


005726 


174264 
000011 
000200 


000007 
174406 


174334 


000002 
027176 
000001 


027007 
017526 


025116 


002570 
000200 


174202 
024755 
016476 
026267 
017410 


000262 


174150 
100000 000746 


174252 
174212 
174216 


174174 


174362 


174344 


174042 


174156 
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I 
135-JUN-78 


*“£2eeeeeeeeeeeereeceeeeeee 


“REWIND FROM EOT: 


4 
13:40 PAGE 47 


SKATER AAAAAAERAAEAEKRAEARAARKAEKEE 


“WHEN ANY TRANSPORT BEING TESTED REACHES END OF TAPE 


;DURING A 


READ OR WRITE OPERATION, 


IT WILL BE REWOUND 


7AND FLAGGED AS UNAVAILABLE UNTIL ALL AVAILABLE UNITS 
;HAVE REACHED EOT AT WHICH TIME ALL TESTING WILL BE RESUMED 


;AT A BLOCK COUNT OF ONE 


(1). A MESSAGE WILL 


BE 
:PRINTED ON THE SUPERVISORS CONSOLE AS EACH UNIT REACHES 


;EOT AND IS REWOUND. 


SRA AREA AAA A AACA AAAS A ATER ARAEAEAER EARTH AREER RAHE 


REOT: MOV UDES ,ac2 ;LOAD COMMAND REGISTER 
MOV #11,aC1 DRIVE CLEAR 
REOT1: BIT #200,aDS 
EQ REOT sAWAIT DRY 
MOV #7,aC1 ;START REWIND 
TST BIFLG :SEE IF BAD TAPE OVERFLOW REWIND 
BNE REOTIA IF SO: BR 
MOV EOQTREC,RO 
BIC #100000 ,RO ;SET RECORD NUMBER OF EOT 
REOTIA: JSR PC ,PAPRT ;PRINT HEADER 
CMP #2,BTFLG sSEE IF POSITION ERROR 
BNE REOT1B ; IF NOT: BR 
MOV #MSG109,R4 ;SET POSITION ERROR MSG 
BR REOTIF 
REOTIB: CMP #1,BTFLG :SEE If BAD TAPE OVERFLOW 
BNE REOTIC ;IF NOT: BR 
MOV #MSG106,R4 ;SET BAD TAPE OVERFLOW MSG 
REOTIF: JSR PC, TTOUT sPRINT REWIND REASON 
BR REOTIE .° 
REOTIC: MOV #MSG20,R4 ;SET EOT MSG 
REOTID: JSR PC, TTOUT ;PRINT MSG 
MOV UNP ,R4 
INC EOTCOCR4) ;BUMP CNTR 
MOV EQTCOCR4) .R3 
JSR C,OCTP sPRINT EOT CNTR 
REOTIE: MOV #ASG16A,R4 
JSR PC,1TT ;PRINT RESTART MSG 
CLR BIFLG sCLEAR BAD TAPE FLAG 
JSR PC,STP sPRINT STATS 
SR PC .BIPRT ;PRINT BAD TAPE STATS 
REOT2: BIT #200,aDS ‘ 
NE REOT2A ;1F DRY: BR 
DEC STAL 
BNE REOT2 ;WAIT DRY 
MOV #HMSG6 ,EMADDR 
JSR PC ,PAPRT ;PRINT HEADER 
MOV #MSG60,R4 
+ og PC,TTOUT :PRINT NO DRIVE READY 
HAL 
REOT2A: DECB REOTC ;SEE IF LAST UNIT TO REACH EOT 
he REOTS ;IF SO: BR 


UNP ,RO 
BIS #100000 ,UN1 (RO) 
(SP)+ 


;SET EQT FLAG 
;RESET STACK POINTER 


SEQ 0047 


TMO2/TU45 DATA RELIABILITY PROGRAM 
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004774 
004776 
005002 


000167 


000000 
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177454 


020000 
000002 
000001 


017254 
174022 


000746 


000746 
177660 
000746 
173754 
173710 
174004 


177264 


173606 


026670 
017126 


176134 


173752 
173734 
173706 


173676 


000746 
174006 


007436 


MACY11 30(1046) 


REOTS: 


REOT4: 
REOTS: 


REOT6: 


REOT?: 


REOTX: 


REOTXX: 


REOTC: 


J 4 
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START? ;GO TO NEXT UNIT 

REOTC 

REOTC,RO 

REOTC 

RO,REOTC ;RESTORE EOT UNIT COUNTER 
UNP ,RO ;POINT TO FIRST UNIT 
UN1(RO) ,UDES ;LOAD UNIT DESCRIPTION 
UDES,aC2 ;LOAD COMMAND REGISTER 
#20000,aDS 


REOTS ;AWAIT PIP RESET 


#2,a0S :SEE IF HAVE BOT 
REOT6 :1F $O: BR 
#1,RO 
PC,PAPRT -PRINT HEADER 
#SG48,R4 
PC, TTOUT :PRINT BOT ERROR 
UNP RO 
#100000,UN1(RO) ;CLEAR EOT FLAG 
#2.,UNP 
UNP,RO :POINT TO NEXT UNIT 
UN1 (RO) -SEE IF LAST UNIT 
REOT7 :1F SO: BR 
UN1 (RO) 

EOT4 :DO NEXT UNIT 
UN1 (RO) 
UNP :CLEAR UNIT POINTER 
TINE :CLEAR TTY INPUT FLAG 
ASEQF >SEE IF AUTO SEQ 
REOTX :1F NOT: BR 

(SP)+ “RESET STACK POINTER 
PC >RETURN TO AUTO SEQ 
PC ,RANSET *GO RESET RANDOM BASE 
#-1,PATS >PRESET PATTERN 

ROFL =CLEAR RANDOM FLAG 
SPFLG >SEE IF SINGLE PASS 
REOTXX : -IF NOT: BR 
#MSG100,R4 

PC, TTOUT :PRINT END OF PASS 
STARTE sRESTART AT BLOCK NUMBER ONE 


;EOT UNIT COUNTER 


SEQ 0048 


kK 4 
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CZTULA.P11 O7-JUN-78 14:49 SEQ 0049 


2079 SRERERAAAAAA ATE TAT AAA TATA ATA AAA AAA AAA AAAAAAT AREA eH 
on ;REWIND ALL AVAIL TAPES: 

2082 :THIS ROUTINE; ENTERED VIA CONSOLE SWITCH NINE (9), 
2083 ;WILL REWIND ALL AVAILABLE TAPES TO BOT NO MATTER 
2084 ;WHERE THEY ARE CURRENTLY POSITIONED AND RESUME TESTING 
2085 :ON THE CURRENTLY SELECTED UNIT. 

2086 SERRE AAA AAA ARATE EAA ER EERE EAA RE ERRATA EEE EE 
2087 

2088 005004 032777 001000 173574 RWND: BIT #1000 ,aSWR ;SEE IF SHOULD REWIND 
2089 005012 001001 BNE RWNDA IF SO: BR 

2090 005014 000207 RTS PC sELSE EXIT 

2091 005016 016767 173654 173672 RWNDA: MOV UNP ,UPS ;SAVE UNIT POINTER 

2092 005024 005067 173646 CLR UNP ;CLEAR POINTER 

2093 005030 005067 173626 CLR EOTREC sCLEAR EDT FLAG 

2094 005034 000367 177742 SWAB REOT 

2095 016700 177736 MOV REOTC,RO 

2096 005044 000367 177732 SWAB REOTC 

2097 005050 110067 177726 MOVB RO,REOTC ;RESTORE EOT UNIT COUNTER 
2098 005054 016700 173616 RWNDO: MOV UNP ,RO ;POINT TO UNIT ENTRY 

2099 005060 005160 000746 COM UN1(RO) SEE IF LAST ENTRY 

2100 005064 001455 BEQ RWND2 ;1F SO: BR 

2101 005066 005160 000746 COM UN1 (RO) 

2102 005072 032760 100000 000746 BIT #100000,UN1(RO) ;SEE IF ALREADY REWINDING 
2103 005100 0010355 BNE RWNDIA sI1F SO: BR 

2104 005102 016067 000746 173442 MOV UN1(RO) ,UDES ;SET UNIT DESCRIPTION 
2105 005110 016777 173436 173424 MOV UDES ,aC2 ;LOAD COMMAND REGISTER 
2106 005116 012777 000011 173364 MOV #11,aC1 DRIVE CLEAR 

2107 005124 012777 000007 173356 MOV #7,aC1 START REWIND 

2108 005132 032777 000200 173362 RWND1: BIT #200,aDS 

2109 005140 001015 BNE RWND1A ;if DRY: BR 

2110 005142 005367 173522 DEC STAL 

2111 005146 001371 | BNE RWND1 AWAIT DRY 

2112 005150 012767 024755 173476 MOV #MSG6,EMADDR 

2113 005156 004767 016016 JSR PC ,PAPRT ;PRINT HEADER 

2114 005162 012704 026410 MOV #"SG70,R4 

2115 005166 004767 016730 JSR PC, TTOUT PRINT NO DRIVE READY 
2116 005172 000000 HALT 

2117 005174 042760 100000 000746 RWNDIA: BIC #100000 ,.UN1(RO) ;CLEAR EOT FLAG 

2118 005202 062767 000002 175466 ADD #2,UNP ;BUMP POINTER 

2119 005210 000167 177640 JMP RWNDO ;D0 NEXT UNIT 

2120 005214 005160 000746 RWND2: COM UN1 (RO) 

2121 005220 005067 173452 CLR UNP ;CLEAR POINTER 

2122 005224 016700 173446 RWND3: MOV UNP ,RO ;POINT TO UNIT ENTRY 
2123 005230 005160 000746 COM UN1(RO) ;SEE IF LAST ENTRY: 

2124 005234 001443 BEQ RWNDX :IF SO: BR 

2125 005236 005160 00074¢ COM UN1(RO) | 
2126 005242 016067 000746 173302 MOV UN1(RO) ,UDES ;SET UNIT DESCRIPTION 
2127 005250 016777 173276 173264 MOV UDES ,aC2 ;LOAD COMMAND REGISTER 
2128 005256 032777 020000 173236 RWND4: BIT #20000,aDS 

2129 005264 001374 BNE RWND4 sAWAIT PIP RESET 

2130 005266 032777 000002 173226 BIT #2,aDS ;SEE IF HAVE BOT 

2131 005274 001410 BEQ RWND6 ;1F NOT: BR 

2132 005276 062767 000002 173572 RWND5: ADD #2 ,UNP ;BUMP POINTER 

2133 005304 012777 000011 173176 MOV #11,aC1 ;DRIVE CLEAR 

2134 005312 000167 177706. JMP RWND3 ;DO NEXT UNIT 


TMO2/TU 


CZTUIA 


45 DATA R 
P11 07 


005316 


005376 


ELIABILITY 
78 14 


- JUN- 


000001 
015652 
026060 
016564 


177732 


17 
000746 
173156 


PROGRAM 
749 


173320 


173162 
173144 
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RWND6: 


#1,R0 

PC,PAPRT 7PRINT HEADER 

#ASG48 ,R4 

PC, TTOUT ;PRINT NO BOT 

RWNDS ;D0 NEXT UNIT 

UN1 (RO? 

UPS ,UNP ;RESTORE UNIT POINTER 
UNP,RO 

UN1(RO) ,UDES ;RESET UNIT DESCRIPTION 
UDES,aC2 

PC ;RETURN TO TEST 


SEQ 0050 


TMOZ/TU4S DATA ae PROGRAM 
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2185 


MIMIMIMO POMP POM 
kk ek ek et et ts ts 
SSLALSLSSELS 


slog a4 


005544 


07-JUN-78 1 


005067 


000207 


173256 
000001 


000562 


002000 
173160 
100000 
010000 


011770 


173152 


173174 


173222 


173202 


173026 


173152 
173070 


173136 


MACY11 30(1046) 


WRITE: 


WRTE: 
WO: 


Wi: 


We: 


W3: 


MOV #MSG5 ,EMADDR 
MOV FMCNT aFC 
MOV #WDATA, @BA 


MOV #W1,RTRN 


mM 4 
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SRR AAAA AAA AAA AAA AAA AAA AAA AEA A AREA AAA AAAAAATA EKER AEE 


WRITE ROUTINE: 


:THIS ROUTINE IS USED TO WRITE ONTO TAPE a « on 

[OF DATA DESCRIBED BY THE OPERATOR AND SET 

:IN THE SEQUENCE FORMATTER. THE TAPE UNIT 10 BE USED 

:HAS BEEN ASSIGNED BY THE SEQUENCE FORMATTER AND 

:1TS PARAMETERS SET IN A UNIT DESCRIPTION WORD. 

:AS EACH RECORD OF THE BLOCK IS WRITTEN, IT IS CHECKED 

sFOR STATUS ERRORS, WORD COUNT ZERO, AND CORRECT CURRENT 
:MEMORY ADDRESS. IF THE WRITE OPERATION RESULTS IN 

ANY ERROR CONDITION, A WRITE RETRY OF THAT OPERATION 

MAY BE DONE BY SETTING SWITCH FOUR (4) TO A ONE (1). 

>THE RETRY CONSISTS OF A BACKSPACE, ERASE FORWARD, AND 
sREWRITE OF THE RECORD. (SEE WRITE RETRY SUBROUTINE) 

AFTER ALL DATA RECORDS IN THE BLOCK HAVE BEEN 

SWRITTEN, THE WRITE ROUTINE WILL EXECUTE A WRITE 

; TAPE MARK COMMAND IF THE TTY RESPONSE TM=1 WAS 

:MADE AT INITIAL START. THE TM IS COUNTED AS TOTAL 

DATA RECORDS PLUS ONE (IE: IF 100 DATA RECORDS; TM=RECORD 101) 
IF THE WRITE OPERATION (DATA OR TM) CAUSES THE SELECTED SLAVE 
:TO REACH END OF TAPE (EOT) AND THERE IS TO BE NO READING DONE, 
:(SW2 AND SW3 SET TO A 1) THEN THE SLAVE IS REWOUND AND 
:FLAGGED AS UNAVAILABLE FOR TESTING UNTIL ALL SLAVES HAVE 
:REACHED EOT AND BEEN REWOUND AT WHICH TIME TESTING IS 
;RESUMED ON ALL AVAILABLE SLAVES. 

:WRITE RETRY MAY BE ALLOWED VIA CONSOLE SWITCH FOUR (4). 

og CHECKING MAY BE DISALLOWED VIA CONSOLE SWITCH 


WELVE (12). 
i TAPE MAY BE DISALLOWED VIA CONSOLE SWITCH 


SRESRESEAAAAAE AAA AACA AEE AAEAAAAAAEAAAAAAAAERAERAREEEEE 


CLR EOTREC ;CLEAR EOT FLAG 

BIT #1, QSUR ;SEE IF SHOULD WRITE 
BEQ WRTE 

JMP WEX : IF NOT: _ 

MOV RCNT,RO :RO=RECORD COUNT 


0 
:SET ERROR MSG ADDRESS 
;LOAD CHAR COUNT 

:SET DATA ADDR 

;SET WRITE OP COMMAND 
;SET RETURN ADDRESS 


#60 ,MTC1 


JMP TAPG ;GO EXECUTE COMMAND 

BIT #2000 ,aDS ;SEE IF EOT 

BEQ We ;1F NOT AT EOT: BR 

MOV RO,EOTREC ;SAVE EOT RECORD NUMBER 


.E 
BIS #100000,EOTREC ;SET EOT 
BIT #10000 ,aSWR 


FLAG 
;SEE IF SHOULD CHECK ERRORS 


BNE W3 ;1F NOT: BR 

JSR PC ,ERCHK :GO CHECK ERRORS 
MOV WSTAL,STAL :SET DELAY 

JSR PC,STALL > DELAY 

TST RTYFL ;SEE IF RETRY TIME 
BEQ WA ; IF NOT: BR 

RTS ‘ * ;ELSE RETURN 


SEQ 0051 


pte DATA RELIABILITY i aaa 


CZTULA 


005546 


005767 


00 
032777 
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173136 
173116 


0 
000020 


173120 
102700 


015362 


003404 


173036 
001050 
002000 


026305 
016236 
173014 
173006 
000346 
173010 
172752 


172642 
172750 


010000 
000004 


027426 
000001 
012320 


027426 
011546 
172644 


172630 
172610 


001070 
000020 


173010 


172734 


172716 


172676 
172606 
172512 


013312 
013312 


172506 
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W3A: 


W4: 


W4A: 


W5: 


W6: 


WIM: 


WTMO: 


WTM1: 
WIM2: 


WTM3: 


N 4 
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SERFL 

W5 

UNP ,R4 
WTER1(R4) 
SERFL 
#20,aSWR 
W5 
ERSAV,R3 
#102700,R3 
Wl 

PC ,PAPRT 
#MSG78,R4 
PC, TTOUT 
PC ,NRTP 
W5 

UNP ,R4 
RTY1(R4) 
#2000 ,aSWR 
W4A 

#ASG64 ,R4 


LG 
aan 


#0 ,aFC 
#WUDATA,@BA 
“so RTRN 
#10000 asur 
*, 20s 


WTR 
#WDATA,CADER 
#1,DRVER 


oR4 
WTER1(R4) 
#20,aSWR 


:MASK UNRECOVERABLE ERROR 

s1F SO: BR 

sPRINT HEADER 

sPRINT NON-RETRYABLE ERROR TAG 
sPRINT ER FOR NON-RETRYABLE 


sBUMP RETRY CNTR 
;SEE IF PRINT ERRORS 


;BUMP WRITE ERROR 
;CLEAR STATUS ERROR FLAG 
Ae IF RETRY 


;SEE IF WRITE ERROR 
NOT: BR 


F NOT: BR 


3; IF NOT: BR 


sPRINT ORIGINAL ERROR TAG 
sCLEAR RETRY NUMBER 
;CLEAR REPEAT COUNTER 

:GO RETRY WRITE ERROR 
:CLEAR RETRY COUNTER 

A IF EOT FOUND 


SO: BR 
; SEE IF DONE ALL 
F NOT: BR 
: SEE IF TM 
BR 


FLAG 
:POINT TO TM ERROR MSG 
:SET TM OP CODE 
;LOAD FRAME COUNTER 
;LOAD BUS ADDRESS 
:SAVE RETURN ADDRESS 


E TA 
>SEE IF SHOULD CHECK ERRORS 
= IF TA STATUS 
O: BR 
‘SET EXPT BUS ADDRESS 
; INDICATE ERROR 
:PRINT TM ERROR 
;SET EXPT ADDRESS 


:GO CHECK FOR OTHER ERRORS 
; SEE “ht, RETRY 


;BUMP WRITE ERROR 
;SEE IF SHOULD RETRY 


F NOT: 
SSET TA 


WRIT 


;1F N 


F NOT 


BR 
“ELSE RETURN TO RETRY ROUTINE 
;SEE IF = ERROR 


SEQ 0052 


TRO2/TU4SS DATA RELIABILITY PROGRAM 
CZTULA.P11 


006244 


07-JUN 


000207 


78 14:49 


172616 
102700 


015069 


003102 


172540 
172530 
001050 
172526 
002000 


026303 


172444 


172360 
177763 
000014 


176016 


172422 


MACY11 30(1046) 


WIM4: 


WIM4A: 


WRWX: 


8 
13-JUN-78 


WEX 
ERSAV,R3 
#102760, R3 


PC. NPAPRT 
#MSG78,R4 


UNP ,R4 
RTVi (RA) 


#2000, aSuR 
WTM4A 


#ASG64 ,R4 
PC, TTOUT 
PC,WRTY 
RTYFL 
TMFLG 
EOTREC 
WRW 


PC 

@SUR,R3 
#177763,R3 
#14 ,R3 





5 
13:40 PAGE 53 


SEQ 0053 


s IF NOT: BR 


i gy aay ERROR 
;PRINT HEADER 


;PRINT UNRETRYABLE TAG 
;PRINT ER FOR NON-RETRYABLE 


;CLEAR REPEAT CNTR 


;BUMP RETRY CNTR 
;CLEAR RETRY CNTR 
;SEE IF PRINT ERRORS 
; IF NOT: BR 


sPRINT ORIGINAL ERROR TAG 
:GO DO RETRY 

sCLEAR RETRY FLAG 

; CLEAR COT MARK FLAG 


ELSE EXIT 
sSEE IF WRITE ONLY 
IF NOT: BR 


:ELSE REWIND 


TMO2/TU4S DATA RELIABILITY PROGRAM 
CZTULA.P11 


012767 


07-JUN-78 14:49 


000001 
000406 
172414 
177132 


177430 
172404 


172370 
000003 


002000 
026774 
015560 
026325 
015550 
172326 
015712 


172334 
102700 


014576 
002620 
000001 
002000 
027230 


172136 
172130 
172156 
172142 


001070 
172132 


172440 


172362 
172256 


172224 
172152 


MACY11 30(1046) 


. 
135-JUN-78 13:40 


See AAAARAAAA AAAS 


sWRITE ERROR RETRY 


e 
SRA AAAAAAAAAAAAAAATAES 


PAGE 54 


WRTY: MOV #1 ,RTYFL ;SET RETRY FLAG 
WRTYO: JSR PC,WRTSB ;GO SPACE REVERSE FOR REPEAT 
ST TMFLG ;SEE IF TAPE MARK TIME 
BNE WRTYTA :1F SO: BR 
JSR PC,W >REWRITE RECORD 
BR WRTYR :GO ON 
WRTYTM: JSR PC WIM ;GO WRITE TAPE MARK AGAIN 
WRTYR: TST SERFL ;REWRITE GOOD 
BNE WRTY2 :1F NOT: BR 
INC RPCNT ;BUMP REPEAT COUNTER 
CMP #3,RPCNT ;SEE IF THREE GOOD REPEATS 
BNE WRTYO :1F NOT: REPEAT 
BIT #2000 ,aSuR sSEE IF PRINT 
BNE RTY1 : IF NOT: BR 
~ MOV #ASG105 ,R4 
JSR PC,T ;PRINT RECOVERED MESSAGE 
MOV #MSG65 ,R4 
JSR PC, TTOUT sPRINT RETRY TAG 
MOV RTCNT.R3 
JSR PC ,OCTP ;PRINT RETRY NUMBER 
WRTY1: RTS PC sRESUME TESTING 
WRTY2: MOV ERSAV.R3 GET ER 
BIC #102700, R3 sMASK RECOVERABLE BITS 
BEQ WRTY2A IF RECOVERABLE: BR 
JSR PC ,PAPRT ;PRINT HEADER 
MOV #ASG78 ,R4 
JSR PC, TTOUT sPRINT NON-RECOVERABLE MSG 
JSR PC ,NRTP ;PRINT ER | 
MOV #1, TEMPS :SET FLAG 
B WRTY2B 
WRTY2A: BIT #2000 ,aSwR sSEE IF PRINT 
BNE RTYS ;IF NOT: BR 
MOV #MSG110,R4 
JSR PC, TTOUT :PRINT BAD TAPE SUSPECT 
WRTY2B: MOV #ASG65 ,R4 
JSR PC, TTOUT ;PRINT RETRY TAG 
MOV RTCNT RS 
JSR PC ,OCTP ;PRINT RETRY NUMBER 
MOV #MSG111,R4 
JSR PC, TTOUT ;PRINT REPEAT TAG 
MOV RPCNT RS 
JSR PC,OCTP sPRINT REPEAT NUMBER 
TST TEMP ;SEE IF DID NON-RECOVERABLE 
BEQ WRTYS ; IF NOT: BR 
CLR TEMPS :CLEAR FLAG 
TS PC sEXIT 
WRTY3: TST RTCNT ;SEE IF FIRST RETRY 
BNE WRTY3A ;I1F NOT: BR 
MOV UNP ,R4 
EC WTER1(R4) ;DECREMENT WRITE ERROR CNTR 


D 
WRTYSA: MOV UNP ,R4 


:GET UNIT NUMBER 


SEQ 0054 


TMO2/TUSS DATA RELIABILITY PROGRAM 
CZTULA.P11 


006672 


016467 


000167 


005067 


07-JUN-78 14:49 


001030 
172154 


172146 
172142 


172060 
000040 
171746 
000040 
000234 
172052 
000004 
172030 
001050 
172056 


177372 
000436 


172016 


171752 
000002 
175306 
171754 


171744 


171634 
177656 


172160 


172112 


172044 


171770 
171742 


171576 
171566 


171760 


171646 


171654 
171466 
171630 


MACY11 30(1046) 


WRTY4: 


WRTYS: 


WRTSB: 


WRTSBO: 


WRTSB1: 


WRTSB2: 


WRTSB3: 


D 
13-JUN-78 


BTADDR(R4) ,BTPT 
a 4 


R3, 

BLCNTR, (R4) 
#40,R4 
RCNT, (R4) 


RO, (R4) 
(R4 


UNP ,R4 


RTY1(R4) 


ERTFL 
WRTYO 
BTUR 


SERFL 


TSTAL, STAL 
PC, STALL 
#NSG66- EMADDR 
#RDATA,@BA 

RT 


(SP)+,(SP)+ 
REOT 


ERTFL 
WRTSB2 
PC 
ERTFL 
RPCNT 


SERFL 
#ASG67 ,EMADDR 
arc 


#24 ,ATC1 
#UDATA,@BA 
= 


WRTSB1 
WRTSBO 


;GET ADDRESS OF UNIT BAD TAPE CNTR 
;GET COUNTER 
:SET POINTER OFFSET 


5 
13:40 PAGE 55 


;SET ABSOLUTE POINTER 
:SET BLOCK 
;ADD RCNT OFFSET 


;SET RECORD NUMBER 

; CORRECT RECORD NUMBER 

;SEE If TOO MANY BAD SPOTS 
;1F NOT: BR 

sELSE GO TO BAD TAPE OVERFLOW 
;BUMP RETRY COUNTER 

;SEE IF DONE 4 RETRIES 

;IF SO: BR 


;BUMP RETRY COUNTER 
;SET ERASE FLAG 
:DO0 NEXT RETRY 
;ELSE GO TO BAD TAPE UNRECOVERABLE 
sWRITE RETRY BACKSPACE-ERASE SUBROUTINE***eaeeae% 

sCLEAR FLAG 


;DO TURN AROUND DELAY 


;SET ERROR CODE 


:SET TO BACKSPACE 1 RECORD 
> SET BA 
+60 BACKSPACE 


Ae 2 
RESET 


STACK 

;GO REWIND AND REMOVE FROM TESTING 
:SEE IF SHOULD ERASE 

;1F SO: BR 

; RETURN 

sCLEAR ERASE FLAG 

;CLEAR REPEAT CNTR 

> CLEAR FLAG 


:SET ERROR CODE 


;CLEAR FRAME COUNT 
;SET ERASE OP-CODE 


;SET BA 

:SET RETURN ADDRESS 
:GO ERASE 

SET EXPT BA 


:GO CHECK ERRORS 


:SEE IF ERROR 
> IF NOT: BR 


:BAD TAPE OVERFLOW SUBROUTINE*tetetxaee 


SEG 0055 


E 5 
TMO2/TUSS DATA RELIABILITY PROGRAM MACY11 30(1046) 13-JUN-78 13:40 | PAGE 56 


CZTUIA.P11 07-JUN-78 14:49 SEQ 0056 
2401 
2402 007062 005067 171626 BTOV: CLR RTYFL s;CLEAR RETRY FLAG 
2403 007066 012767 000001 171632 MOV #1.BTFLG ;SET BAD TAPE OVERFLOW FLAG 
2404 007074 005726 POPSP 
2405 007076 000167 175160 JMP REOT :G0 REWIND AND REMOVE FROM TESTING 
2406 007102 016701 171624 BTOVO: MOV BIPT,R1 3SET TABLE POINTER 
2407 007106 005721 TST (R1)+ 
2408 007110 9005000 CLR RO 
2409 007112 010003 BTOV1: MOV RO,R35 
2410 007114 000241 CLC 
2411 007116 006003 ROR R3 ;R3=R3/2 FOR CORRECT NUMBER 
2412 007120 004767 015150 JSR PC,OCTP :PRINT ENTRY NUMBER 
2413 007124 012704 025044 MOV #MSG13,R4 
2414 007130 105724 TSTB (R4)+ :SKIP CR/LF 
2415 007132 004767 014764 JSR PC, TTOUT :PRINT BLOCK NUMBER TAG 
2416 0071 011103 MOV (R1),R3 
2417 007140 004767 015130 JSR PC,OCTP :PRINT BLOCK NUMBER 
2418 007144 012704 025052 MOV #MSG14,R4 
2419 007150 004767 014746 JSR PC, TTOUT :PRINT RECORD NUMBER TAG 
2420 007154 062701 000040 ADD #40,R1 :SET POINTER OFFSET FOR RECOED NUMBER 
2421 007160 012103 MOV (R1)+,R3 
2422 007162 004767 015106 JSR PC ,OCTP sPRINT RECORD NUMBER 
2423 007166 162701 000040 SUB #40,R1 sRESET POINTER FOR BLOCK NUMBER 
2424 007172 005720 TST RO)+ 
2425 007174 020077 171532 CMP RO,aBTPT :SEE IF DONE 
2426 007200 001405 BEQ ove :1F SO: BR 
2427 007202 012704 025352 MOV #ASG28,R4 
2428 007206 004767 014710 JSR PC, TTOUT :D0 CR/LF 
2429 007212 000737 BR BTOV1 sCONTINUE ° 
2430 007214 005767 171510 BTOV2: TST BISTF :SEE IF STAT ONLY PRINT 
2431 007220 001007 BNE BTOVX sI1F SO: BR 
2432 007222 012703 000041 MOV #41,R3 sSET SIZE OF TABLE 
2433 007226 016704 171500 MOV BIPT,R4 :SET POINTER 
2434 007232 005024 BTOV3: CLR (R4)+ :CLEAR TABLE Me 
2435 007234 005303 DEC :SEE IF DONE 
2436 007236 001375 BNE BTOV3 :1F NOT: BR 
2437 007240 000207 BTOVX: RTS > RETURN 





TMO2/TUSS DATA RELIABILITY PROGRAM 
CZTUIA.P11 78 14:49 


007242 
46 


007320 


007324 


007340 


07-JUN- 


012704 


000167 


004767 


000207 


025352 
014650 
171420 
001030 
171442 


014774 
027264 
014612 
171416 


177556 


013650 
027077 
014562 


171446 


MACY11 30(1046) 


BIPRT: 


BIPRT1: 


BTUR: 


F 
13-JUN-78 


5 
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:BAD TAPE STATISTIC PRINTeeeeee«8 


#ASG28 ,R4 
PC, TTOUT 


;D0 CR/LF 


UNP ,R4 
aa :SET TABLE POINTER 


@BTPT,R 


R3 

PC ,OCTP 
#MSG112,R4 
PC, TTOUT 


aBTPT 
BIPRT1 


PC 
BTOVO 


; CORRECT NUMBER 
;PRINT NUMBER OF BAD SPOTS 


;PRINT BAD TAPE TAG 
+ Yl +7 BAD SPOTS 


F $0: B 
TELSE RETURN 
sPRINT STATS 


:BAD TAPE UNRECOVERABLE SUBROUTINE ****«xan0% 


PC ,PAPRT 
#MSG107.R4 
PC, TTOUT 
PC 


;PRINT HEADER : 


;PRINT UNRECOVERABLE BAD SPOT MSG 


;RESUME TESTING - 


SEQ 0057 


TMO2/TU4S DATA RELIABILITY PROGRAM 
CZTUIA.P11 749 


007342 


012767 


07-JUN-78 14 


000002 
171232 
177765 
000002 
000004 
010000 
000252 
000010 
010000 


171134 


000001 
002322 


171154 


174546 
171142 


010000 
000010 


000001 
002236 


0710000 


171212 


171214 
171204 
171150 
171162 
171126 
171224 


171124 


171064 


171032 
171050 


171040 


171000 
171012 
170756 


MACY11 30(1046) 


RSEQ: 


RSR: 


RSF: 


RSFO: 


PSF1: 


RSEX: 
RSFR: 


RSFRO: 
RSFR1: 


G 
13-JUN-78 


5 
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SEQ 0058 


SRE AAA AA AAAA TERA EAE AEA E AERA RARER ARAERAKAARERENE 


;READ SEQUENCER: 


:THIS ROUTINE IS USED TO DETERMINE THE SEQUENCE 
> IN WHICH READ TAPE OPERATIONS ARE TO BE PERFORMED. 


:THIS IS NECESSARY WHEN THE UNIT BEING TESTED IS 
:CAPABLE OF READING DATA IN BOTH THE FORWARD AND 
sREVERSE DIRECTIONS. 
;AND THREE (3) ARE USED TO DETERMINE THE READ SEQUENCE. 
:CONSOLE SWITCH ONE (1) DETERMINES WHETHER TO READ 

;THE BLOCK OF DATA FORWARD FIRST OR REVERSE FIRST. 
:SWITCH TWO (2) DISALLOWS READING IN THE REVERSE 
:DIRECTION AND SWITCH THREE (3) DISALLOWS READING IN 


;THE FORWARD DIRECTION. 


CONSOLE SWITCHES ONE (1), 


TWO (2), 


PITITIII TLL LIT ETL ttt iiiiii iii iii titi iii 


#2,RDCMD 
@SWR,R4 
#177763,R4 
R4 

RSR 

#2.,aSWR 

RSFR 

#4 ,aSWR 

RSF 

#10000, ROCMD 
PC ,READ 

#10 ,aSUR 
RSEX 

#10000 ,RDCMD 
RSFO 
TSTAL,STAL 


,@SUR 


RSE 
#10000, RDCMD 
RSFR2 


;READ SWITCHES 
;MASK READ BITS 


>SEE IF BOTH READS 

; IF NOT: BR 

:SEE IF READ REVERSE FIRST 
;1F NOT: BR 


IF 
;SEE IF SHOULD READ REVERSE 
F NOT: BR 


iI 

;LOAD READ REVERSE COMMAND 
:GO READ REVERSE 

4 is IF —" READ FORWARD 


; NOT: B 

;SEE IF HAVE READ REVERSE 
sIF NOT: BR 

:D0 READ STALL 


sSEE IF WRITE 

: IF NOT: BR 

:GO BACKSPACE 

:LOAD READ FORWARD COMMAND 


:GO READ 

:SEE IF AT END OF TAPE 
F NOT: BR 

ELSE GO TO REWIND 

;CLEAR EOT FLAG 


:SEE IF SHOULD READ FORWARD 

sIF NOT: BR 

-SEE IF WRITE 

s IF NOT: BR 

-60 BACKSPACE TO START 

sLOAD READ FORWARD COMMAND 

: G0 READ FORWARD 

-SEE IF SHOULD READ REVERSE 
F NOT: BR 


;1F READ REVERSE: BR 


TMO2/TUSS DATA et ee PROGRAM 
CZTUIA.P11 749 


007666 


07-JUN-78 1 


016767 
004 


000207 


170764 
00 


171024 


170710 
171010 
171004 
174460 
170774 


171054 
170734 


171014 


MACY11 30(1046) 


RSFR2: 


RSFRX: 


H 
13-JUN-78 


TSTAL,STAL 
PC STALL 
#10000, RDCMD 
PC READ 
EOTREC 


RSFRX 

RCNT ,EOTREC 
EOTREC 
EOTREC 

REOT 


EQTREC 
PC 


5 
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SEQ 0059 


;D0 READ STALL 
;LOAD READ REVERSE 


;GO READ REVERSE 
;SEE IF AT END OF TAPE 
; IF NOT: BR 


:SET TO PROPER RECORD NUMBER 


sELSE GO TO REWIND 
;CLEAR EOT FLAG 


;EXIT 


TMO2/TU4S DATA eon te PROGRAM 
CZTUIA.P11 749 


007670 


07-JUN-78 1 


016700 
005767 


170660 
170762 


010000 
100000 
170736 


024755 
170736 
010000 
170606 
170714 
170564 
033434 
010000 
170540 


000020 


170454 
000076 


170652 
170742 


170716 


170612 


170522 
170512 
170552 


170524 


170626 


MACY11 30(1046) 


READ: 


RDA: 


RDO: 


RD1: 


SRSA AAA AAA AAA A SAA AAA ERAAE AAA AAAAARA RARER ATER 


. 3 
13-JUN-78 13:40 


;READ ROUTINE: 


:THIS ROUTINE PERFORMS THE READ OPERATION DETERMINED 
;BY THE READ SEQUENCE ROUTINE ONE RECORD AT A TIME. 

;AT THE END OF EACH READ OPERATION THE STATUS REGISTER 
:1S SCANNED FOR EITHER END OF TAPE OR BEGINNING OF TAPE. 


PAGE 60 


: IF EQT WAS REACHED, CONTROL WILL BE PASSED TO 


: THE EOT SUBROUTINE TO REWIND THE UNIT AND FLAG IT 


SUNAVAILABLE UNTIL ALL UNITS HAVE REACHED EOT. 
:1F BOT WAS REACHED AN ERROR IS PRINTED AND TH 


;PROGRAM WILL HALT. 


>THE CONTINUE SWITCH. 
TAPE MARK IS EXPECTED (TM=1) THEN THE 
:READ ROUTINE EXPECTS THE FIRST RECORD OF A 
;READ REVERSE TO BE A TM, AND THE LAST RECORD 


sIF A 


; OF 


:OF RECORDS IN A 


LOCK 
;CONSOLE SWITCHES ELEVEN (11) AND THIRTEEN (13) DETERMINE WHETHER 
OR NOT TO CHECK FOR STATUS ERRORS (11) OR DATA ERRORS (13) 
>CONSOLE SWITCH FIVE (5) IS USED TO CAUSE A CONTINUOUS 
READ AND SPACE (FORWARD OR REVERSE) OF THE CURRENT 


sRECORD ON TAPE (YOZZLE). 


PARRA ALAAL ALISA RASA RDS ek 


RCNT,RO ;LOAD REC CNTR 

EOTREC ;SEE IF EOT 

RDA ; IF NOT: BR 

#10000, RDCMD :SEE IF READ FORWARD 

RDA IF SO: BR 

#100000,EOTREC ;CLEAR FLAG 

EOTREC, ;GET MODIFIED RECORD COUNT 
. :SET RECORD AT 

RO :SET TO PROPER NUMBER OF RECORDS 

#MSG6,EMADDR :SET ERROR MSG ADDRESS 

TMFLG 

#10000 ,RDCAD 

ROO ;1F READ FORWARD: BR 

TMEX ;SEE IF TM 

RDO ;1F NOT: BR 

ae ;SET TM FLAG 

FACNT ,aFC ;LOAD CHAR CNTR 

#RDATA,@BA ;LOAD DATA ADDR 

#10000 ,RDCMD ;SEE IF READ REVERSE 

RDIA ;1F NOT: BR 

* aaa 

#20,UDES ;SEE IF CORE DUMP 

RD1 ;1F NOT: BR 

R3 :R3 = FC/2 

R3,aBA ;SET REVERSE BUS ADDRESS 

+4 Pl ;SET READ REVERSE 

R 


HE 
TESTING MAY BE RESUMED BY PRESSING 


A READ FORWARD TO BE A TM. REMEMBER 
;THAT THE TA “ey ONE (1) TO THE TOTAL NUMBER 


SEQ 0060 


CZTU 


010050 
010056 
010064 


010372 


012767 


162703 


000076 


010000 
000020 
000020 
002060 
170544 
170520 
100000 
000002 
013014 
025131 
013726 


172656 
004000 


170462 
000004 
033434 
000002 
010102 
170422 
010000 
001150 
001110 


033434 
010000 


002000 
000002 
170220 
000020 


000001 
002000 


000002 


TMO2/TUSS DATA RELIABILITY PROGRAM 
UIA.P11 07-JUN-78 14:49 


170616 
170600 


170464 
170414 
170404 
170374 


170512 


170344 


170376 


170274 


011074 
011074 


170300 


170250 
170230 


170204 


170162 


MACY11 30(1046) 


RD3: 


RD4: 


18: 
RDGA: 


RD4A0: 


RD4A1: 


7s 
13-JUN-78 13:40 PAGE 61 


#70,MTC1 ;SET READ FORWARD 
#RD2,RTRN 7SET INTERRUPT RETURN ADDRESS 
TAPG :GO EXECUTE TAPE COMMAND 
#10000 ,RDCMD : SEE IF READ REVERSE 

RD3 ;1F SO: BR 
#20,aDS 

D2B ; AWAIT SWON 
#20,aDS 

D2A ; AWAIT TUR 
#2000,aDS ;SEE IF EOT 

RD3 ;1F NOT: BR 

TMFLG ;SEE IF TM 

D3 ;1F SO: BR 

RO, EOTREC 
#100000,EOTREC ;SET EOT FLAG 

#2,aDS ;SEE IF AT LOAD POINT 
RD4 : IF NOT: BR 

PC ,PAPRT :PRINT CYCLE NUMBER 
#MSG22,R4 

PC,TTOUT ;PRINT BOT ERROR 

STARTA ; RESTART 

#4000 ,aSUR ;SEE IF SHOULD CHECK ERRORS 
ROS ; IF NOT: BR 

TMFLG 

RD4B ;1F NO TM EXPT: BR 
#4,aDS 

RD4A IF TM RECVD: BR 
#RDATA,CADER ;SAVE EXPT BUS ADDRESS 
#2,D0RVER ;SET TM STATUS ERROR FLAG 
PC,ERPT ;GO PRINT TM ERROR 

UNP ,R4 

#10000 ,RDCMD SEE IF READ REVERSE 

1$ ; IF NOT: BR 

oo :BUMP READ REVERSE ERROR 
— ;BUMP READ FORWARD ERROR 
#RDATA,RS 

#10000 ,RDCMD :SEE IF READ REVERSE 
RD4AO ;IF SO: BR 

#2000 ,UDES :SEE IF IN PE 

RD4A2 ;1F SO: BR 

#2,R3 

RD4A2 

ila 

#20,UDES ;SEE IF CORE DUMP 

RD4A1 ;1F NOT: BR 

R4 :SET TO FC/2 

R4,R5 ;SET EXPT BUS ADDRESS 
#1,R3 :MAKE EXPT ADDRESS EVEN 
#2000, UDES ;SEE IF IN PE 

RD4A2 ;1F SO: BR 


#2,R3 


SEQ 0061 


TMO2/TU45 DATA RELIABILITY PROGRAM 
CZTULA.P11 


010376 


010644 


07-JUN-78 


004767 
eresg! 


000207 


14:49 
007210 


007104 
170274 


170254 
010000 


001110 
001150 


020000 
170210 
005110 


000040 
000532 


010000 
170130 
170104 
000001 
010000 
170052 
167746 
170054 
170046 


177126 
17003¢ 


170132 


170124 


170072 


170140 
170020 


167760 


MACY11 30(1046) 


RD4A2: 


RD4B: 
RD4C: 


RD4D: 
RDGE: 


RDS: 


RD6: 


RD7: 


RD7A: 


RD10: 


RD11: 


RDEX: 
RDX: 


K 
13-JUN-78 


PC,ER2 

RD4C 

PC ,ERCHK 
SERFL 

RD5 

UNP ,R4 
#10000 ,RDCMD 
RD4D 
— 


RD4E 
RDERR1(R4) 
PC,RDRTY 


RTYFL 
- <a alanaa 


PC,YOZ 
RSTAL,STAL 
PC, STALL 
#16000, ROCMD 


5 
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SEQ 0062 


;GO CHECK ERRORS 
; IF NO ERROR: BR 


;SEE IF READ REVERSE 

;1F SO: BR 

:BUMP READ FORWARD ERROR 
fein REVERSE ERROR 


;GO 


;CLEAR RETRY FLAG 
;SEE IF SHOULD DO DATA CHECK 


;1F NOT; BR 


;GO CHECK DATA 
;CLEAR STATUS ERROR FLAG 


; CLEAR BUFF 


ER 
;SEE IF SHOULD YOZZLE 
: T: BR 


: IF NO 
SELSE GO YOZZLE 
1H DELAY 


TALL 
:SEE IF READ REVERSE 
; IF NOT: BR 

CLEAR TAPE MARK FLAG 


;SEE IF EOT FOUND 
IF NOT: BR 

;SET TO EOT 

: IF DONE ALL: BR 
;SEE IF READ REVERSE 
IF SO: BR 

;SEE IF FOUND EOT 
IF SO: BR 

;SEE IF TAM EXPECTED 
: T: BR 


; IF NO 

; SEE IF TM FOUND 
F SO: BR 

SELSE SET FLA 


ET FLAG 
;SET RECORD COUNT TO ONE 
;GO READ TM 


sEXIT 


TMO2/TU4S5 DATA RELIABILITY PROGRAM 
CZTUIA.P11 


010646 


032777 


07-JUN-78 14:49 


000020 
170040 
102700 
012302 


000324 
002090 
026305 


167726 
002000 
026774 


010000 
002670 
002710 


167644 
102700 


012106 


000001 


167732 


167664 


167742 


167614 


167524 


167534 


MACY11 30(1046) 


RDRTY: 


RDRTO: 


RDRT1A: 


RDRT1: 


RDRT1B: 


RDRTG: 


RDRT2: 


RDRT3: 
RDRT4: 
RDRT5: 


L 
13-JUN-78 


5 
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SEQ 0063 


SREAD ERROR RETRY SUBROUTINE: SS 


READ ERROR RETRY SUBROUTINE: 
“THIS SUBROUTINE WILL RETRY ALL DATA RELATED 


;READ ERRORS UP TO EIGHT (8) TIMES. 
:FOUR RETRIES ARE BAD, 

:A HARD ERROR. 

;SOFT ERROR. 
:VIA SWITCH FOUR (SW4=0: 


IF ANY ARE GOOD, 
RETRIES MAY BE INHIBITED 


IF ALL 


IT IS CONSIDERED 


IT IS A 
INHIBIT RETRIES) 


SRE TERETE EET AEA AAA A EAA E EAA AREER EEERKERKES 


#20,aSWR 
RDRTO 


PC 
ERSAV,R3 
#102700 R53 
RORT1 

PC ,PAPRT 
#ASG79,R4 
PC,TTOUT 
PC.NRIP 


PC 

#2000 ,aSuR 
RDRT1B 
#ASG64 ,R4 


RDRTS 
#2000 ,aSwR 
RORT2 
#ASG105,R4 
PC, TTOUT 
#ASG65 ,R4 
PC, TTOUT 
RTCNT,RS 
PC ,OCTP 


UNP ,R4 
#10000 ,ROCMD 
RDRTS 

RF SOF T(R4) 
RDRT4 
RRSOFT(R4) 
ae 

ERSAV,R5 
W102700. R3 
RDRT5A 
PC,PAPRT 


#¥SG79,,R4 
PC, TTOUT 


RDRT5B 


;SEE IF RETRY INHIBITED 
;IF NOT: BR 
SELSE RETURN 


;MARK NON-RECOVERABLE ERROR BITS 
;IF NOT: BR 
:PRINT HEADER 


;PRINT NON-RECOVERABLE MESSAGE 
sPRINT ER FOR NON-RETRYABLE ERROR 


; RETURN 
;SEE IF PRINT INHIBITED 
:1F SO: BR 


sPRINT ORIGINAL ERROR TAG 
:CLEAR RETRY COUNTER 

sCLEAR STATUS ERROR FLAG 
sSET READ RETRY FLAG 

3;GO TO YOZZLE TO RETRY READ 
sSEE IF RETRY ERROR 

sIF SO: BR 


:PRINT RECOVERED MESSAGE 

;PRINT RETRY TAG 

;PRINT RETRY NUMBER 

;SEE IF READ REVERSE 

IF SO: BR 

sELSO BUMP FORWARD SOFT ERROR COUNTER 
;BUMP ERRORS SOFT CNTR 

RETURN 


;GET ER 

sMASK RECOVERABLE BITS 
:1F RECOVERABLE: BR 
sPRINT HEADER 


PRINT NON-RECOVERABLE MSG 
PRINT ER 
;SET FLAG 


TMO2/TU4S DATA RELIABILITY PROGRAM 


CZTULA.P11 
2749 011116 
2750 011124 
2751 011126 
2752 011132 
2753 011136 
2754 011142 
2755 011146 
2756 011152 
2757 011154 
2758 011160 
2759 011162 
2760 011166 
2761 011174 
2762 011176 
2763 011202 
2764 011206 
2765 011212 
2766 011220 
2767 011222 
2768 011226 
2769 011230 
2770 011234 
2771 
2772 011236 
2775 ~011242 
2774 011246 
2775 011252 


07-JUN- 


032777 


000207 
016703 


000207 


78 14:49 


002000 
026325 


167476 
167470 


167516 
167512 


027327 
012714 
167464 
010000 


002730 
002750 
167462 


013026 
010104 


167462 


167406 


167342 


. % 
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RDRT5A: 
RDRT5B: 


RDRT6: 


RDRT7: 
RDRTX: 


NRTP: 


BIT 
N 


#2000, aSWR :SEE IF PRINT INHIBITED 
RDRT6 :1F SO: BR 

#ASG65,R4 

PC, TTOUT sPRINT RETRY TAG 

RTCNT,R3 

PC,OCTP :PRINT RETRY NUMBER 

TEMPS :SEE IF DID NON-RECOVERABLE 
RDRT6 :1F NOT: BR 

TEMPS sCLEAR FLAG 

PC sEXIT 

RTCNT 

RTCNT, RETRY :SEE IF DONE 8 RETRIES 
RDRTG : NOT: BR 

#ASG115,R4 

PC, TTOUT sPRINT HARD ERROR MESSAGE 
UNP ,R4 

#10000, RDCMD :SEE IF READ REVERSE 

RDRT7 sIF SO: BR 

——— sBUMP FORWARD HARD ERROR CNTR 
RRHARD(R4) sBUMP REVERSE HARD ERROR CNTR 
PC ; RETURN 

ERSAV,R3 :GET ER REGISTER 

PC,OCTP :PRINT ER 

Sata sPRINT F OR R 


RETURN 


SEQ 0064 





CZTUIA 


-~JUN-78 1 


ete DATA gto ee PROGRAM 
P11 07 749 


011254 


012777 


005104 


000001 


010000 
000030 
000032 


167324 
040000 
167206 


010000 
167134 
000020 


167050 
000076 


000070 
167070 
004000 
167162 
010000 


033434 
167016 


167326 
167400 


167214 
167252 


167354 
167344 


167326 
167324 


167304 
167274 


167106 
167146 


167120 


167222 
167212 
167026 
167166 


167076 


167034 


MACY11 30(1046) 


yozco: 


YOZC1: 
YOZC2: 


YOZD: 


N 5 
13-JUN-78 13:40 PAGE 65 


SRA ATE AAA AAA TATA AAA EATER ARERR RERAEEERE ES 


:YOZZLE SUBROUTINE : 


:THIS SUBROUTINE, ENTERED VIA SWITCH FIVE (5), IS USED TO PERFORM 
;A CONTINUOUS READ AND SPACE OVER OF THE CURRENT RECORD ON TAPE. 
sFULL STATUS AND DATA CHECKING MAY BE PERFORMED 

:OR NOT VIA CONSOLE SWITCHES ELEVEN (11) AND THIRTEEN (13). 

sA SOFTWARE DELAY IS PERFORMED BETWEEN EACH READ 

:AND SPACE OPERATION AND MAY BE VARIED BY TYPING 

:CNTRL C ON THE TTY AND ENTERING A VALUE IN RESPONSE 

:TO THE PRINTED REQUEST. 


TTT TTT ti Titel i tiie tii ti titi rrr rrr ETT TT 
;SET TTY ENABLE 
:D0 YOZZLE STALL 


MOV #1,aTKS 
MOV YSTAL,STAL 
JSR PC,STALL 


MOV #-1,aFC ;SET TO 1 RECORD SPACING 
BIT #10000 ,RDCMD ;SEE IF READ REVERSE 

BEQ YOZA If NOT: BR 

MOVB #30,MTC1 :SET TO SPACE FORWARD 

BR YOZB 

MOVB #32 ,ATC1 ;SET TO SPACE REVERSE 


MOV #YOZC ,RTRN 
MOV #177775,STAL 
TAPG 


;SET RETURN ADDRESS 
; SET —- 


JMP :GO YOZ 

TST TAMFLG ;SEE IF TMA 
BEQ 1$ IF NOT: BR 
-y > goal amie sSET TA STALL 


MOV YSTAL,STAL 


JSR PC,STALL :D0 YOZZLE STALL 
MOV #RDATA,@BA ;SET BUS ADDRESS 
BIT #10000 ,RDCMD ;SEE IF READ REVERSE 
BEQ yozc1 ;IF NOT: BR 
MOV FACNT,R3 
COM R3 
BIT #20,UDES ;SEE IF CORE DUMP 
ae y0zc0 ;IF NOT: BR 
L 
ROR . R3 sR3 = FC/2 
ADD 3,a8 ;SET REVERSE BUS ADDRESS 
=< ee ;SET READ REVERSE 


;SET READ FORWARD \. 
;SET CHARACTER COUNY ““ée 


MOV #rorD. “RTRN SET RETURN ADDRESS yA 


JMP :GO READ 

BIT 44000, aSUR :SEE IF SHOULD CHECK ERRORS 
BNE YOZE ;1F NOT: BR 

TST TMFLG :SEE IF TAPE MARK TIME 

BEQ YOZD1 IF NOT: BR 

BIT #10000 ,RDCMD :SEE IF READ REVERSE 

BEQ Y0ZD0 ;1F NOT: BR 


MOV #RDATA,RS 
MOV FMCNT,R4 
COM R4 


SEQ 0065 





TMO2/TU45 DATA RELIABILITY PROGRAM 
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011542 


012010 


07-JUN- 


032767 
2 


000207 


000020 


000001 
002000 
006uT¢ 
05434 
002000 
005764 


005660 
020000 


167030 
167036 
003722 
002464 
166714 
0002035 


026005 


6 
000040 


177272 
000100 


167002 


166760 


166734 


166744 


166706 


166612 


MACY11 30(1046) 


YOZD4: 


YOZD2: 
yOzDO: 


YOZD3: 
YOZD1: 


YOZE: 


YOZF: 


YOZFO: 


YOZG: 


166600 YOZH: 


B 
13-JUN-78 
#20,UDES 
YOZD4 
R4 


R4,R3 
#1,R3 
#2000 ,UDES 
YOZD2 


YO 
#RDATA,RS 


YOZG 
#203 ..aTKB 
YOZG 
#ASG44 ,R4 


Y0Z0 
#100,aTKS 
PC 


;SET TO F 
:SET EXPT BUS ADDRESS 
MAKE et ADDRESS EVEN 


6 
13:40 PAGE 66 


;SEE IF 


;SEE IF CORE DUMP 
;1F NOT: BR 


C/2 


:1F SO: BR 
;SET EXPT BA 


:GO CHECK ERRORS 


SEE IF PE 
:IF SO: BR 
;SET EXP 
:GO CHECK ERRORS 


sELSE GO CHECK ERRORS 
;SEE IF SHOULD CHECK DATA 


sPRINT YSTALL REQUEST 


;PRINT PRESENT STALL 

;SAVE ROCREC CNT) 

;SET ADDRESS OF YSTL 

:SET NUMBER OF CHAR TO INPUT 
;SET MAXIMUM LIMIT 

7 SET gory LIMIT 

:G0 GET VAL 

; RESTORE RO (REC CNTR) 
RESTART YOZZLE 

:SEE IF De as CONTINUE YOZZLE 


cIF ON 


IF NOT: 


T BA 


NOT: BR 
sSEE IF TAPE MARK 
:1F SO: BR 
:SEE IF RETRY 
;1F SO: BR 
sELSE GO CHECK DATA 
;GO CLEAR DATA AREA 
i SEE Ad = NEW STALL VALUE 


;IF NOT: B 
;SEE IF CONT C 
IF NOT: BR 


ir INTERRUPT ENABLE 


SEQ 0066 


TMO2/TU4S DATA RELIABILITY PROGRAM 
CZTUIA.P11 


012012 


016767 


000207 


07-JUN-78 14:49 


166560 


166520 
177777 


010000 


026217 
000004 


033434 
006216 


033434 
005444 
166402 


025005 
166326 
000032 
012214 
166460 
007206 
03343¢ 
005366 


166346 
000002 


166650 
166622 
166454 


166442 
166612 
166574 
166504 


166542 
166402 


007202 


166470 


166476 
166460 


166436 


MACY11 30(1046) 


BKSP: 


BKTA: 


BKTMO: 


BO: 


BKRT: 


Bi: 
Be: 


C 6 
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SEQ 0067 


SRE AAA AAA AAA TAA A AAA AAA AEA A ARAH ARTE RRAARK AREAS 


;BACKSPACE SUBROUTINE: 


;THIS SUBROUTINE IS USED TO PERFORM THE 

sBACKSPACE OPERATION REQUIRED BY THE READ 

;ROUTINE FOR READ FORWARD AFTER WRITING. 

:1F A TAPE MARK IS EXPECTED (TM=1) THEN THE SPACE 
sROUTINE ASSUMES THAT THE TM WILL BE FIRST WHEN 
;BACKSPACING. THEREFORE TWO OPERATIONS ARE REQUIRED 
:TO SPACE OVER A BLOCK. FIRST SPACE OVER THE TM, THEN 
; SPACE OVER THE DATA RECORDS. 

;A CHECK FOR RECORD COUNT ZERO IS MADE AT THE 

sEND OF THE SPACE OPERATION TO ASSURE THAT PROPER 

: TAPE POSITIONING WAS DONE. 


SEERA AAA AAA AAA AERA EEA AEAERAAEAAERAREAEKEREREEE 





MOV TSTAL,STAL 

JSR PC,STALL :D0 TURN AROUND STALL 

MOV #ASG10,EMADDR 

MOV #RDATA, 

TST TMEX ;SEE IF TM 

BEQ B0 :1F NOT: BR 

MOV #32,KTC1 

MOV #BKTA,RTRN 

JMP TAPG :SPACE TO TM 

BIT #10000, aSwR ;SEE IF SHOULD CHECK ERROR 

BNE BO :1F NOT: BR 

MOV #MSG55 ,EMADDR 

BIT #4,aDS sSEE IF TM 

BNE BKTMO ;I1F SO: BR 

MOV #RDATA,CADER 

JSR PC ,ERPT ;PRINT ERROR 

BR BO 

MOV #RDATA,RS 

JSR PC,ER2 

MOV RCNT,RO 

cae “ :BUILD SPACE AMOUNT 

fo 90 leat ;SET ERROR MESG ADDRESS 

V ‘ 

MOV #32 ,ATC1 :SET SPACE REVERSE 

MOV #81,RTRN :SET RETURN ADDRESS 
RO,STAL sSET INTERRUPT TIME MULTIPLIER 
TAPG :GO DO SPACE 

MOV #RDATA,RS 

JSR PC,ER2 

MOV TSTAL,STAL :D0 STALL 

JSR PC, STALL > STALL 

RTS PC EXIT 





D 6 
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CZTULA.P11 07-JUN-78 14:49 SEQ 0068 
2932 
2933 SRRAAAAEA AAA AAA AAAA AETHER EE AAA AREAKERAKEAHE RHEE 
Soa STALL ROUTINE: 
2936 - ;THIS ROUTINE IS USED TO PROVIDE SOFTWARE DELAYS 
2937 s;DURING READ, WRITE, TURN AROUND, AND YOZZLE. 
2938 ;THE DELAY TIMES MAY BE SET BY THE OPERATOR AT 
2939 INITIAL START FROM 200(8) OR MAY BE MODIFIED 
2940 sAT ANY TIME BY ENTERING CNTRL C ON THE TTY AND 
2941 ; INSERTING NEW VALUES IN RESPONSE TO THE REQUEST. 
2942 sTHE READ STALL AND THE WRITE STALL ARE DELAYS 
2943 sEXECUTED BETWEEN EACH RECORD OF THE DATA BLOCK. 
2944 : ;THE TURN AROUND STALL IS EXECUTED EACH TIME 
2945 THE DIRECTION OF TAPE MOVEMENT IS CHANGED AND 
2946 s;ALSO EACH TIME THE TAPE OPERATION CHANGES FROM 
2947 ;WRITE TO READ OR READ TO WRITE. THE YOZZLE 
2948 sSTALL IS EXECUTED ONLY DURING THE YOZZLE ROUTINE. 
2949 TTT T TIE Titi t litt itil i ti tis iiiiifitiii iit ii iat tare 
2950 
2951 012240 005367 166424 STALL: DEC STAL 7 
2952 012244 001575 BNE STALL > DELAY 


2953 012246 000207 RTS PC sEXIT 


ba al Yo we 





TMO2/TUSS DATA RELIABILITY PROGRAM 
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012250 
012254 


012306 


012310 


012332 


012701 


000207 


012702 
012701 
004767 
016767 
000207 


07-JUN-78 14 


177760 


177777 


000001 
000500 


011306 
166276 


166334 
166256 
002102 


166222 


MACY11 30(1046) 


CCNTR: 


RCNTR: 


E 6 
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SEQ 0069 
SRR AAA AA AAA AAA AAA AAA AA AAA AT AERA RARE RATE AAREREKE 
;RANDOM CHARACTER COUNT GENERATOR: 


“THIS ROUTINE ENTERED VIA CONSOLE SWITEH 
:SEVEN (7) IS USED TO GENERATE A RAND 


:CHARACTER COUNT FOR EACH DATA BLOCK. 


;ALL RECORDS WITHIN A GIVEN BLOCK WILL BE 
;THE SAME, BUT EACH BLOCK WILL VARY. 

:THE LIMITS ARE TWENTY (20) TO FOUR THOUSAND 
:(4000) OCTAL CHARACTERS PER RECORD. 


PITTI TI TITTLE ELL LLL ttt titi 


MOV #-20,R1 >SET HIGH LIMIT 

MOV #-4000 ,R2 ;SET LOW LIMIT 

JSR PC,RANG :GO GENERATE NUMBER 
BIC #1,RANSAV 

MOV RANSAV, FACNT :SET CHAR COUNT 

MOV #-1,PATS ;PRESET DATA PATTERN 
RTS PC sEXIT 


FREER ERE EAA AAEAE RARER AAA EAA AAT AA AREA ERAERKEKEEEKE 


“RANDOM RECORD COUNT GENERATOR: 
“THIS ROUTINE ENTERED VIA CONSOLE SWITCH SIX (6) 


:I1S USED TO GENERATE A RANDOM NUMBER OF RECORDS 
;FOR EACH BLOCK OF DATA 

;THE LIMITS ARE ONE (1) “TO FIVE HUNDRED (500) OCTAL 
sRECORDS PER BLOCK. 


rererverrciietc titi titi tiiiiiiiiiititiiisiiiiiiiii iss, 


MOV #1,R2 >SET LOW LIMIT 

MOV #500,R1 :SET HIGH LIMIT 

JSR PC RANG ;GO GENERATE NUMBER 
MOV RANSAV,RCNT ;SET RECORD COUNT 
RTS PC sEXIT 


F 6 
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CZTUIA.P11 07-JUN-78 14:49 SEQ 0070 
2992 
2993 SRAAAEAAA AAA AERA AEE RE TAA A REE AAAHE KER EAAKE RRR ES 
te, :TEST CONDITION ENTRY ROUTINE: 
2996 :THIS ROUTINE IS USED TO ALLOW THE OPERATOR 
2997 ;TO ENTER, AT THE TTY, THE NECESSARY PARAMETERS 
2998 '  3T0O RUN THE PROGRAM AS HE WISHES. THE 
2999 ROUTINE IS ONLY ENTERED UPON INITIAL STARTING 
3000 FROM LOCATION 200(8). 
3001 ; : THE MAIN PURPOSE OF THIS ROUTINE IS TO ESTABLISH 
3002 7A TABLE OF DEVICES TO BE TESTED. THIS TABLE 
3003 sCONSISTS OF AN ENTRY FOR EACH OF ONE (1) TO 
3004 sEIGHT (8) DEVICES. EACH ENTRY CONTAINS THE 
3005 :SLAVE NUMBER, DENSITY, PARITY, AND 
3006 sFORMAT. THE INFORMATION IS ENTERED 
3007 > IN RESPONSE TO PRINTED REQUESTS AT THE TTY. 
3008 ;SLAVES MAY BE ENTERED IN ANY ORDER. EACH 
3009 :PARAMETER IS CHECKED FOR LEGALITY BEFORE BEING 
3010 :SET INTO THE TABLE. 
3011 :THE DRIVE NUMBER REQUEST WILL ALSO CHECK THE MASSBUS 
3012 :FOR THE PRESENCE OF THE REQUESTED DRIVE. IF IT IS NOT FOUND, 
3013 :A NON-EXIST DRIVE MESSAGE WILL BE PRINTED AND ANOTHER DRIVE 
3014 sREQUEST MADE. WHEN THE DRIVE IS FOUND, THE RESPONSE IS STORED 
3015 sAND CONTROL PASSED TO THE SLAVE SELECT ROUTINE. 
3016 :THE SLAVE SELECT ROUTINE ALSO CHECKS FOR THE PRESENCE OF THE 
3017 sSLAVE. IF IT IS NOT PRESENT, A MESSAGE IS PRINTED AND ANOTHER 
3018 sREQUEST IS ISSUED. WHEN THE SELECTED SLAVE IS FOUND TO BE 
3019 :PRESENT, A MESSAGE IS PRINTED IF IT IS A 7 CHANNEL DRIVE 
3020 :TO ASSIST IN SELECTING DENSITY, PARITY, AND FORMAT. 
3021 ;UPON COMPLETION OF THE DEVICE TABLE, REQUESTS 
3022 sARE PRINTED FOR ENTRY OF THE NUMBER OF CHARACTERS 
3023 :PER RECORD AND THE NUMBER OF RECORDS PER BLOCK. THE 
3024 sNEXT REQUEST IS FOR A PATTERN NUMBER TO BE USED 
3025 sFOR WRITING AND CHECKING OF READ DATA. 
3026 sFOLLOWING THE PATTERN REQUEST IS THE TAPE MARK OPTION. 
3027 :RESPONDING TO THE REQUEST (TM=) WITH A ONE (1) 
3028 sWILL CAUSE THE PROGRAM TO WRITE A TM AT THE 
3029 :END OF EACH DATA BLOCK AND TO EXPECT THE 
3030 7TH TO BE DETECTED IN EITHER READ FORWARD AND REVERSE 
3031 :OR DURING SPACE OPERATION. A RESPONSE OF ZERO (TM=0) 
3032 :DISALLOWS WRITTING OF THE TH AND CAUSES THE READ 
3035 ;AND SPACE ROUTINES TO EXPECT NO TM TO BE PRESENT. 
3034 sTHE LAST REQUESTS ARE FOR ENTRY OF THE DESIRED 
3035 sWRITE, READ, AND TURN AROUND STALLS. 
3036 RARER TEA AAA AAA A TATA AR EAA AAA EAA EAE RAAAAKKERAREREEEE 
3037 
3038 012334 005767 166276é TINP: TST TINE ;SEE IF SHOULD INPUT FROM TTY 
3039 012340 001001 BNE TINPA ;1F SO: BR 
3040 012342 000207 RTS PC sEXIT 
3041 012344 005067 166326 TINPA: CLR UNP :CLEAR TABLE POINTER 
3042 012350 005067 172426 CLR REOTC :;CLEAR EOT UNIT COUNTER 
3043 012354 012700 000010 MOV #10,R0 ;SET SIZE OF TABLE 
3044 012360 012701 000746 MOV #UN1,R1 :SET START OF TABLE 
3045 012364 005021 TINPB: CLR (R1)+ ;CLEAR TABLE 
3046 0 005300 DEC R ;SEE IF DONE 


12366 0 
3047 012370 001375 BNE TINPB ; IF NOT: BR 


TMO2/TUSS DATA RELIABILITY PROGRAM 
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012372 


012712 


07-JUN-78 


012704 


152714 


14:49 


025442 
166334 


025354 
011506 
001526 


026507 
011470 


000016 
000510 


000002 


166136 


007424 
eertee 


010000 
026444 
011216 
165600 


000100 


165702 


165640 
165626 


MACY11 30(1046) 


TINPB1: 


TINPBO: 


TINPC: 


G 
13-JUN-78 


#MSG31,R4 
ASEQF 
TINPB1 
#MSG30,R4 
PC, TTOUT 
SCVFL 
TINPC 
#ASG74,R4 
PC, TTOUT 
REGS ,R3 
PC,OCTP 
#REGS,R5 
#6,R1_ 
#177400,R2 
#160000 ,R3 
PC, TTR 
#MSG75,R4 


VECT,RO 
#ATINT, (RO)+ 
#340, (RO) 
REGS ,RO 


ac 
#10000,aCS 
TINPO 
#ASG71,R4 
PC, TTOUT 


eo 


R4 
#100, (R4) 


6. 
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: IF 


:SET AUTO SEQ — 


:PRINT PROGRAM 


NAME 
:SEE IF SHORT CONVERSATION 
If SO: BR 


;REQUEST STARTING REGISTER ADDRESS 


;PRINT CURRENT REG START 
; SAVE ADDRESS LOCATION 
sSET SIZE OF ENTRY 

;SET UPPER LIMIT 

sSET LOWER LIMIT 

:GO GET RESPONSE 


;GO REQUEST VECTOR ADDRESS 


;PRINT CURRENT VECTOR 
:SET SAVE LOCATION 

sSET SIZE OF ENTRY 

;SET UPPER LIMIT 

;SET LOWER LIMIT 

:GO GET RESPONSE 

:GET VECTOR ADDRESS 

;LOAD VECTOR WITH HANDLER ADDRESS 
;LOAD PRIORITY LEVEL 

sGET STARTING REGISTER ADDRESS 
;SET NUMBER OF REGISTERS 

:GET FIRST ADDRESS LOCATION 
;BUILD TABLE OF ADDRESSES 
;BUMP ADDRESS 


; SEE iF _DONE 


RESET STACK POINTER 
:GO TO AUTO SEQUENCE 


: INITIALIZE 


i gt oe NUMBER 


;GET A 


DDRESS 
;SET SIZE OF RESPONSE 
;SET UPPER LIMIT 
;SET LOWER LIMIT 
:GO GET DRIVE NUMBER 


sACCESS DRIVE 
;SEE IF NED 
;1F NOT: BR 


sPRINT NED 


sCLEAR TRE 


;SEE IF AUTO SEQ 
OT: BR 


SEQ 0071 


— 


TMO2/TUSS DATA RELIABILITY PROGRAM 
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3109 


WW Wt 
ee ee ee eed ed eed etd od ed 
SL ee ee ee 
DO OONAOULWN oO 


012716 


013260 


012703 


07-JUN-78 14:49 


177666 


165656 
165702 
177720 


002000 
026232 


142012 


026127 
010776 


165430 
003400 
0 


000000 


000746 


000746 
165454 
165446 


165462 
165450 


165424 


165326 


MACY11 30(1046) 


TINPO: 


TINPOA: 


TINPOB: 


TINPOC: 


TINPOD: 


TINPOE : 


TINP1: 


TINP2: 


H 
13-JUN-78 


UNP ,RO 
#-1,UN1 (RO) 
TINP2C 

UNP ,RO 
#7,UN1(RO) 
PC, TPOS1 


#ASG57.,R4 
PC, TTOUT 


TINPO 
#142012 ,aDT 


TINPOE 
#MSG50,R4 
PC, TTOUT 


PC, TTOUT 
TEMP2 


TINP2 
#3400,UDES 
#10,R5 
PC,TPOS 


#ASG34,R4 
3 Pla 


6 
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SEQ 0072 


;RETRY DVN 


;PRINT UNIT NUMBER REQUEST 

; CLEAR BUFFER 

;SET UNIT DESCRIPTION BUFFER ADDRESS 
;SET NUMBER OF CHARACTERS TO INPUT 
;SET MAXIMUM LIMIT 

;SET MINIMUM LIMIT 

;GO GET UNIT NUMBER 


;SEE IF HAVE NEW PARAMETER 
;IF SO: BR 

:SEE IF FIRST ENTRY 

; IF NOT: BR 

ELSE RETRY 


;SET END UNIT TABLE 
;GO GET RECORD COUNT 


;CLEAR UNIT NUMBER 
:GO LOAD UNIT NUMBER TO PROPER POSITION 


;LOAD UNIT NUMBER 
;SEE IF SLAVE PRESENT 
IF SO: BR 


;PRINT NON-EXIST SLAVE 
;REDO 

;SEE IF 9TRK TMO2,TU45 
IF SO: BR 

: ILLEGAL DRIVE TYPE 
;GO PRINT 


:PRINT DRIVE TYPE REGISTER 
;PRINT SERIAL NUMBER TAG 
;PRINT SERIAL NUMBER 


;PRINT DENSITY REQUEST 
;CLEAR BUFFER 

:SET NUMBER OF CHARACTERS TO INPUT 
+ SET MAXIMUM LIMIT 


SEE a — NEW PARAMETER 

SELSE CLEAR OLD PARAMETER 

;SET POSITION FACTOR 

:GO LOAD DENSITY INTO PROPER POSITION 


sPRINT PARITY REQUEST 
CLR BUFFER 

;SET NUMBER OF CHARACTERS TO INPUT 
;SET MAXIMUM LIMIT 

;SET MINIMUM LIMIT 


cls 


TMO2/TUSS DATA os PROGRAM 
CZTUIA.P11 749 


3181 
182 
83 


07-JUN~78 1 


012701 


010374 
165350 


000010 
000003 
000634 
026175 
010576 
165316 
000002 
000016 
000014 
010314 
165270 


000170 


000016 
000002 


000002 


165246 


165166 


165270 
165260 


165114 


165034 


MACY11 


TINP2A: 


TINP2B: 


TINP2C: 


TINPS: 


30(1046) 


I 
13-JUN-78 


TINP2B 


PC.TIR 
RCNT RCSAV 
#SG36,R4 


gERCNT., R5 
#6,R 

#2000, Re 
#4 ,R3 
PC,TTR 
FMCNT 
FMCNT ,FCSAV 
#SG37, 
PC, TTOUT 
PATRN,R5 
PC,OCTP 


DOFL 
#PATRN,R5 


6 
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SEQ 0073 


;GO INPUT PARITY 

;SEE If HAVE NEW PARAMETER 

; IF NOT: BR 

;ELSE CLEAR OLD PARAMETER 

;SET POSITION FACTOR 

;GO LOAD PARITY TO PROPER POSITION 


;REQUEST FORMAT 


;GO GET FORMAT 
;SEE IF NEW PARAMETER 
; IF NOT: BR 


;BUMP EOT UNIT COUNTER 
;SEE IF DONE UNITS 
IF SO: BR 


S 
:POINT TO NEXT UNIT 
sELSE LOOK FOR NEXT UNIT 


:CLEAR UNIT POINTER 


;SET UNIT EOT COUNTER 
;PRINT RECORD COUNT REQUEST 
;PRINT RECORD COUNT 


;SET RECORD COUNT ADDRESS 
:SET NUMBER OF CHARACTERS TO INPUT 


;SET MAXIMUM LIMIT 
;SET MINIMUM LIMIT 
;GO GET RECORD COUNT 
;SAVE RECORD COUNT 


sPRINT CHARACTER COUNT REQUEST 


;PRINT CHAR COUNT 

;SET CHARACTER COUNT ADDRESS 

;SET NUMBER OF CHARACTERS TO INPUT 
;SET MAXIMUM LIMIT 

;SET MINIMUM LIMIT 

:GO GET CHARACTER COUNT 

;SET TO TWO'S COMPLIMENT 

;SAVE FRAME COUNT 

;PRINT PATTERN NUMBER REQUEST 


:PRINT PATTERN 


:CLEAR EXTERNAL DATA FLAG 
;SET PATTERN NUMBER ADDRESS 
;SET NUMBER OF CHARACTERS TO INPUT 


ee 


TMOZ/TUS5 DATA RELIABILITY PROGRAM 


CZTUIA.P11 


014146 


012702 


000000 


07-JUN-78 14:49 


000015 


000164 
025720 


000002 


MACY11 30(1046) 


TINP4: 


TINPX: 
SCVFL: 


J 
13-JUN-78 


TINPX 


6 
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SEQ 0074 


;SET MAXIMUM LIMIT 
7SET MINIMUM LIMIT 
;GO GET PATTERN NUMBER 


;REQUEST TM 


;PRINT CURRENT TM FLAG SETTING 
:GET TM FLAG ADDRESS 

;SET SIZE OF RESPONSE 

;SET UPPER LIMIT 

;SET LOWER LIMIT 

;TM 1=YES 


;REQUEST SINGLE PASS 


;PRINT CURRENT SETTING 
;SET ADDRESS OF FLAG 

;SET SIZE OF RESPONSE 

;SET UPPER LIMIT 

;SET LOWER LIMIT 

:GO GET RESPONSE 

:SEE IF SHORT CONVERSATION 
IF SO: BR 


:PRINT READ STALL REQUEST 


sPRINT READ STALL 

;SET READ STALL ADDRESS 

:SET NUMBER OF CHARACTERS TO INPUT 
sSET MAXIMUM LIMIT 

;SET MINIMUM LIMIT 

3GO GET READ STALL 


;PRINT WRITE STALL REQUEST 


;PRINT READ STALL 

;SET WRITE STALL ADDRESS 

;SET NUMBER OF CHARACTERS TO INPUT 
;SET MAXIMUM LIMIT 

;SET MINIMUM LIMIT 

:GO GET WRITE STALL 


;PRINT TURN AROUND STALL REQUEST 
;PRINT TA STALL 


:SET TURN AROUND STALL ADDRESS 

;SET NUMBER OF CHARACTERS TO INPUT | 

:SET MAXIMUM LIMIT 
;SET MINIMUM LIMIT s 


M 
:GO GET TURN AROUND STALL 
sCLEAR SHORT CONVERSATION FLAG 


sEXIT 
sSHORT CONVERSATION FLAG 


;UNIT DESCRIPTION POSITIONING SUBROUTINE®**teexxane 


| 


TMO2/TUSS DATA RELIABILITY PROGRAM 
CZTULA.P11 


014150 
014152 
014156 
014160 
014162 
014166 
014174 


O7-JUN-78 14:49 


000241 
poe Ah 164470 


164510 
056760 164454 000746 
000207 


K 
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TPOS: 


TPOS 


1: 


TEMP2 
R3 
TPOS 


UNP ,RO 
mo 


6 
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;POSITION CHARACTER 
;SEE IF DONE 
; IF NOT: BR 
;LOAD UNIT POINTER 


;LOAD CHARACTER INTO UN1T(RO) - 


sEXIT 


SEQ 0075 


o-«, 


TMO2/TU45 DATA RELIABILITY PROGRAM 
CZTUIA.P11 749 


014176 


01 
014370 


005767 


001375 


07-JUN-78 14 


001006 


164524 
164340 
000714 
164324 
164306 
177767 
000136 


000130 
000724 


027426 


000001. 


002770 
010000 


002002 
027426 
140300 


000636 
002000 
033434 


000152 


164210 


MACY11 30(1046) 


DSUP: 


DSO: 


DSOC: 


DSOB: 
DSOA: 


DS1: 


DS2: 


DS2A: 


DS3: 
DS4: 


L 
13--JUN-78 
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RCE AA AAA AAA AAA TATA A ATA AA RAK ARAARARARERES 


;DATA SETUP ROUTINE: 


:THIS ROUTINE IS USED TO GENERATE INTO THE ENTIRE 
SWRITE BUFFER (4000 OCTAL CHARACTERS) THE ot — 


:SELECTED BY THE OPERATOR. 


THERE ARE 15 (8) F 


7DATA PATTERNS AVAILABLE AND ONE SELECTION (DATA. PATTERN 0) 
:WHICH WILL READ ANY PATTERN PRESENTED AT THE 


:HIGH SPEED PAPER TAPE READER. 
:BY USING THE PROGRAM CALLED DTC. 


THIS TAPE MUST BE PREPARED 
(ZZ7-CZTUNAO) 


;RANDOM DATA MAY ALSO BE USED VIA CONSOLE 


:SWITCH EIGHT (8). 


:THIS ROUTINE IS ALSO USED TO CLEAR OUT THE 
;READ BUFFER (4000 OCTAL CHARACTERS) BEFORE EACH 


s;RECORD IS READ. 


SEARS AEA AAR EAA AAA AA AERA AEA A AREER AEAAREREREAEKEE 


TST RDFL 
BEQ DSO 

BR DS1 

TST ASEQF 
BEQ DSOC 
TST PATRN 
BPL DSOC 
JSR PC,DATR 
RTS PC 


CMP PATRN,PATS 
DSOA 


MOV UDES R35 
BIC #177767 R53 


MOV R3,PARS 
JSR at /CRCLRC 


MOV #UDATA,RS 
MOV PATRN,R1 
MOV R1,PATS 


ADD #1,R1 
CLC 
ROL R1 


JMP @DATBL(R1) 
BIT #10000 ,aDT 


DS2A 

MOV #2002 ,R2 
#WDATA,R1 

BIC ——— 


E DS2 
JSR PC, CRCLRC 
MOV #2000,R2 
MOV #RDATA,R1 
CLR R1)+ 
DEC R 
BNE DS4 


;SEE IF DID RANDOM DATA 
; IF NOT: BR 

sELSE EXIT 

;SEE IF AUTO SEQ 

:1F NOT: BR 

: SEE IF AUTO RANDOM 

F NOT: BR 

ELSE 6 GO GENERATE RANDOM DATA 


; RETURN 
;SEE IF NEW PATTERN 
SIF SO: BR 

;GET UNIT DESCRIPTION 
sMASK EVEN PARITY 

;SEE If SAME AS LAST TIME 
IF SO: BR 

:SAVE PARITY 
:GO GENERATE EXPT CRC/LRC 


:R3 = ADDRS OF WRITE BUFFER 
;R1 = PATTERN SELECTOR 


;BUMP POINTER 


sMAKE PATTERN SELECTOR EVEN 
:GO GENERATE PATTERN 

sSEE IF 7 CH 

“IF NOT: BR 

:SET BUFFER SIZE 

SET a ee® BUFFER 


;1F NOT: BR 

;GO GENERATE EXPT CRC/LRC 
:R2=BUFFER SIZE 

:R1=READ DATA START 
:CLEAR BUFFER 

;SEE IF DONE ALL 

:1F NOT: BR 


a %& 


SEQ 0076 





TMO2/TU45 DATA RELIABILITY PROGRAM 
CZTUIA.P11 


014372 
014400 
014406 
014410 
014412 


014414 


014564 


016767 
042767 
000207 
177777 
000000 


005767 


000000 


07-JUN-78 14:49 


164154 
177767 


000144 
000001 


000200 


164132 
164150 


000001 
164132 


177722 


027426 
164106 


033434 
177544 


177744 


000012 
000004 


000134 


164146 
164140 


164134 


MACY11 30(1046) 


PATS: 
PARS: 


DATO: 


DATOA: 
DATOB: 


4 
13-JUN-78 


UDES ,PARS 
“77767. »PARS 


6 
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SEQ 0077 


;GET UNIT areca 
;MASK PARITY 


sEXIT 
;PATTERN NUMBER SAVE 


sEXTERNAL DATA INPUT FROM H/S READER (256 CHARACTER MAXIMUM) 


DOFL 


#RDATA,R3 
OF 


: SEE IF SHOULD DO EXTERNAL INPUT 
F NOT: BR 


SET EXTERNAL FLAG 
7 CLEAR READER BUFFER 


:CLEAR READER STATUS 


;CLEAR FOR USE AS CHARACTER FLAG 
sSTART READER 

;SEE IF DONE 

:IF NOT : BR 

> CLEAR SAVE LOCATION 

;SAVE CHARACTER 

;SEE IF HAVE FOUND START CHARACTER 


sIF SO : BR 

> SEE IF CHARACTER IS 0 

sIF SO : BR 

ELSE SET CHARACTER FOUND FLAG 
sSAVE SATA SIZE 

sSAVE DATA SIZE 

:60 GET FIRST DATA CHAR 
;LOAD BUFFER 

3 SEE ae READ ALL 

IF : BR 

sR1 START OF WRITE BUFFER 
sR2 = SIZE OF DATA FIELD . 
*REPEAT LOAD OF DATA FIELD 
EE IF DONE 

:1F NOT: BR 


EXIT 
:SEE IF AT END OF DATA FIELD 
71F NOT : BR 

ELSE RESTART FILL 

sEXTERNAL DATA FLAG=1 IF ALREADY DONE 


o-« 


CZTU 


014566 


014604 


014610 
014612 


014616 


014640 


014644 
014650 
014652 


014656 
014662 


014666 
014672 


014676 


014722 


012701 
2 


000167 


005001 
000167 


012701 


000167 


012701 
000261 
000167 


012701 
000167 


012701 
000167 


012701 


000167 


erica ot DATA RELIABILITY PROGRAM 
P11 07-JUN-78 


14:49 


177777 
002002 


177510 


177754 


000001 
004004 


177454 


000376 
177746 


052525 
177704 


125252 
177674 


125252 
052525 
001002 


177372 


MACY11 30(1046) 


DAT1: 


DATIA: 
DAT18: 


DAT2: 


DATS: 


DAT3A: 
DAT3B: 


DAT4: 


DATS: 


DAT6: 


DAT?7: 


DAT7A: 


sALL ONES*ttteeeter 


#-1,R1 
MOV #2002 ,R2 
MOV R1,(R5)+ 
D R2 


EC 

BNE v* 1B 

JMP Ds1 

sALL ZEROSttteteeeee 
CLR R1 

JMP DATIA 

WALKING ONEteeeeeenee 
MOV #1,R1 


C 
MOV #4004 ,R2 
MOVB R1,(R3)+ 


ROLB R1 
DEC R2 
BNE DAT3B 
JMP DS1 


sWALKING ZEROttteeerere 


MOV #376,R1 
SEC 
JMP DAT3A 


N 6 
135-JUN-78 13:40 PAGE 78 


;R1=DAT 
:R2= YORD COUNT +2 
;LOAD BUFFER 


:SEE IF DONE 
; IF NOT: BR 
; RETURN 


;R1=DATA 
;LOAD BUFFER 


;R1=DATA 


sR2=CHARACTER COUNT+4 
;LOAD BUFF 

:SET NEXT CHARACTER 
sSEE IF DONE 

:1F NOT: BR 

: RETURN 


;R1=START OF DATA 
;LOAD BUFFER 


; ALTERNATING ONE/ZEROtteeeerene 


MOV aoeeee R1 
JMP DAT1 


;R1=DATA 
;LOAD BUFFER 


:ALTERNATING ZERO/ONE*tteeeeree 


MOV #125252,R1 
JMP DATIA 


sR1=DATA 
:LOAD BUFFER 


sONE/ZERO IN ALTERNATING WORDStetereaaee 


MOV #125252 ,R1 
MOV #52525,R2 
MOV #1002 ,R4 
MOV R1,(R3)+ 
MOV - Jemall 


DEC 
BNE DAT7A 
JMP DS1 


:SET WORD 1 

:SET WORD 2 

:SET NUMBER OF ENTRIES 
:LOAD WORD 1 

:LOAD WORD 2 

:SEE IF DONE 

: IF NOT: BR 

: RETURN 


SEQ 0078 


Tl 
C, 


TMO2/TUSS DATA RELIABILITY PROGRAM 
07-JUN-78 14:49 


CZTUIA.P11 


014726 


014752 


014754 


014760 


014774 
014776 


015002 


015022 


015026 
015032 


015036 





012702 


012701 


000167 


005001 


000167 


012701 


000167 


012701 
000167 


012702 


004002 
000001 


177400 


177340 


004004 


177316 


000377 
004004 


177272 


000377 
177534 


004002 


000376 


177400 


177230 


MACY11 30(1046) 


DAT10: 


DATI0A: 


DAT11: 


DATIIA: 


DAT12: 


DAT12A: 


DAT13: 


DAT14: 


DATI4A: 


B 7 
13-JUN-78 13:40 PAGE 79 
SEQ 0079 


sWALKING ONE/ALL ONE IN ALTERNATING CHARS***« 


MOV #4092 ,R2 ;SET BUFFER SIZE 
MOV #1,R1 ;SET WALK BASE 


C 
MOV #177400, (R3) ;LOAD ALL ONE BYTE 
BIS R1,(R3)+ ;LOAD WALK BYTE 


ROLB R1 sWALK ONE 

DEC R2 

BNE DATI0A :D0 FULL BUFFER 
JMP DS1 : RETURN 

rALL BITS 0-377eeeeeeeees 

CLR Ra sR1I=STARTING DATA 
MOV #4004 ,R2 :R2=CHARACTER COUNT+4 
MOVB R1,(R3)+ sLOAD BUFFER 

INCB R1 :BUMP DATA 

DEC R2 sSEE IF DONE 

BNE DATIIA :1F NOT: BR 

JMP DS1 : RETURN 


sALL BITS 377-Oeereeeeeee 


MOV #377,R1 sR1I=STARTING DATA 
MOV #4004 ,R2 sR2=CHARACTER COUNT+4 


MOVB R1,(R3)+ ;LOAD BUFFER 
DECB R1 ;BUMP DATA 
DEC R2 sSEE IF DONE 
BNE DATI2A :IF NOT: BR 
JMP DS1 ; RETURN 


ALTERNATING CHARACTERS 0 AND 377eeexerenne 


MOV #377 ,R1 sR1 = DATA 
JMP DATIA :LOAD BUFFER 


“WALKING ZERO/ALL ZERO IN ALTERNATING CHARS***«e« 


MOV #4002 ,R2 ;SET BUFFER SIZE 
MOV #376,R1 ;SET WALK BASE 


SEC 

MOV R1, (R35) ;LOAD WALK BYTE 
BIC #177400,(R35)+  ;CLEAR HIGH BYTE 
ROLB R1 WALK ZERO BIT 
DEC Re 

BNE DATIGA FILL BUFFER 

JMP DS1 * ;RETURN 


TMO2/TUSS DATA RELIABILITY PROGRAM 
CZTUIA.P11 


015140 


015142 


015210 


012702 


177777 


016704 


000000 


O7-JUN-78 14:49 


000400 
015122 
000010 


177176 


163410 
027426 
177777 


006446 


163436 © 


177120 
000001 


000002 


* 
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sAUTO SEQUENCE PATTERNetetteere 


DAT15: MOV #400 ,R2 7SET NUMBER OF ENTRIES 
DATI5A: MOV #APATS,R1 ;SET START OF PATTERN 
MOV #10,R4 ;SET SIZE OF PATTERN 
DAT15B: MOV (R1)+,(R3)+ FILL BUFFER 
DEC R4 ;SEE IF DONE PATTERN 
BNE DAT15B ;1F NOT: BR 
DEC Re ;SEE IF DONE BUFER 
BNE DATI5A :1F NOT: BR 
JMP DS1 RETURN 
APATS: 0 
177400 
377 
0 
1 
377 
a 


;RANDOM DATA GENERATOR SUBROUTINE **#*e220%% 


DATR: MOV FMCNT,R4 ;SET NUMBER OF FRAMES 
MOV #WDATA,RS ;SET ADDRESS OF START OF BUFFER 
MOV #-1,R1 :SET HIGH LIMIT 
CLR R2 :SET LOW LIMIT 


DATRO: JSR PC ,RANG :GO GENERATE NUMBER 
MOV RANSAV, (R3)+ ;LOAD BUFFER 
INC R4 ;SEE IF DONE WHOLE BUFFER 
BNE DATRO ;1F NOT: BR 


;GO CHECK FOR 7 CH 


MOV #1 ,RDFL ;SET RANDOM DATA FLAG 
RTS PC sEXIT 
RDFL: 0 ;RANDOM DATA SELECT FLAG 


SEQ 0080 


TMO2/TUSS DATA RELIABILITY PROGRAM 
CZTUIA.P11 


015212 


0 0 
015444 


016700 


012704 
005201 


07-JUN-78 14:49 


163340 


027426 
000346 


000166 
000310 


000400 


177703 


177703 
000074 


000272 


177714 


163202 


027426 
000210 


000030 
000152 


000170 
000136 
000156 


000010 


000420 . 


000244 


000230 


000160 


163114 


MACY11 30(1046) 


CRCLRC: 


CLO: 


CL1: 


CL2: 


CLLAST: 


CL3: 


CLP: 


D 
13-JUN-78 


7 
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SRA AAA AAA RAR AAT AAAAAAAAAAAAAAAAAAEAAAERAA ARETE 


¢CRC/LRC CHARACTER BUILD; 


:THIS ROUTINE WILL CONSTRUCT AND SAVE THE EXPECTED 
:CRC AND LRC CHARACTERS ACCORDING TO DATA AND 
sRECORD SIZE IF OPERATING IN NRZ MODE 


reeeTCTTCTTICITililitititiiiitii titi tiiitiiiiiiiiiii it 


FMCNT,RO 
RO 
#WDATA,R1 
RS 

(R1) ,R4 
PC,CLP 
PC,XOR 
R4 


CLe 
#400,R4 


Be 
© 


R4,R5 
#177703,R5 
R5 
#177703,R5 
#74 ,R4 


C 
XORS,R4 
XORS 


#177050,XORS 
R&S 


#177727, 
R4,XORS 
XORS ,EXCRC 
FACNT,RO 
RO 
#WDATA,R1 
XORS 

(R71) ,R4 
PC,CLP 
PC,XOR 

RO 

CL3 
EXCRC,R4 
PC ,XOR 
XORS ,EXLRC 
PC 

R4 

CLPE 

ty -UDES 
ae R4 


;SET RECORD SIZE 

;SET START OF BUFFER 

;GET CHARACTER 

:GO GET PARITY OF CHARACTER 
;MOR CHARACTER 

sROTATE 1 RIGHT 

: IF NO CARRY: BR 

;SET BIT NINE 


;SAVE CHARACTER 


sCOMPLIMENT BITS 2.3.4.5 


; IF LAST CHARACTER: BR 
:GET NEXT 


:COMPLIMENT ALL BUT BITS 385 
;SAVE EXPECTED CRC 

:D0 EXPT LRC 

;GET PARITY 


;XOR CHARACTER 
;D0 ALL FOR LRC 


sXOR CRC TO DATA 
; SAVE EXPT LRC 


: RETURN 
;SEE IF 0 CHAR 


;1F NOT: BR 
:SEE ay EVEN PARITY 


BR 
;SET 0 CHAR EVEN PARITY 
:BUMP POINTER 


SEQ 0081 


TMO2/TU4S DATA RELIABILITY PROGRAM 
CZTULA.P11 


015446 


015574 
015576 


07-JUN-78 14:49 
000207 
005067 000130 
012703 000010 
032704 000001 
00140 
005267 000112 
000241 
006004 
005303 
001367 
112104 
042704 177400 
032767 000001 
00100 
032767 000010 
0014 
00020 
032767 000010 
001001 
000207 
052704 600400. 
000207 
010446 
046716 600016 
040467 000012 
052667 000006 
016704 000002 
000207 
00000 
000000 
000000 
000000 


000066 
163024 


163012 


MACY11 30(1046) 


CLPE: 
CLPO: 


CLP1: 


CLP2: 


CLP3: 
XOR: 


EXLRC: 
PARCNT: 


E 
13-JUN-78 


CLPO 
(R1)+,R4 
#177400,R4 
#i, sPARCHT 


CLP 
#10,UDES 
CLP3 

PC 
#10,UDES 
CLP3 

PC 
#400,R4 
PC 
R4,-(SP) 
XORS, (SP) 
R4,XORS 
(SP)+,XORS 


XORS ,R4 
PC 


7 7 
13:40 PAGE 82 


; RETURN 
Aa BIT COUNTER 


T NUMBER OF BITS 


:$ 
;SEE IF ONE BIT 


F NOT: BR 


sa 

;BUMP COUNTER 

sROTATE TO NEXT BIT 

: CONTINUE FOR ALL BITS 


‘tT obs ODD NUMBER OF ONE BITS 
;SEE IF SHOULD BE EVEN PARITY 
NOT: BR 


ZF 


sELSE EX KIT 
:SEE IF es BE ODD PARITY 


:1F NOT: 


sELSE EXIT 
;SET PARITY BIT 


;XOR SUBROUTINE: R4 WITH XORS 


MOR SAVE 
sEXPECTED CRC 
sEXPECTED LRC 
;PARITY COUNTER 


SEQ 0082 


TMO2/TU45 DATA RELIABILITY PROGRAM 
CZTUIA.P11 


01 
016014 


605067 


001431 


O7-JUN-78 14:49 


163046 
163070 
162734 
000020 


027426 
033434 
000010 
000020 


002000 


000020 
177777 


162624 
027426 
010000 
162604 


000020 


000001 


000020 


162722 


162676 
162666 
162656 


176464 


162616 


162570 


162554 


162536 


MACY11 30(1046) 


DCHK: 


DCHKO: 


DFOF: 


DFOE: 


DFOD: 


DFOC: 


DFOCO: 


DFOB: 


DF OBO: 


DFOA: 


ee: 
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SERA AAEAAAERAAAAA AREA AAAAAARAERARAARARRARA KERR EE 


sDATA CHECK SUBROUTINE: 


“THIS SUBROUTINE IS USED TO COMPARE EACH CHARACTER 
[OF DATA READ FROM TAPE WITH THE EXPECTED CHARACTER. 
ANY ERROR DETECTED WILL CAUSE CONTROL TO BE 
:PASSED TO AN ERROR PRINT SUBROUTINE AND A 

; SUBROUTINE TO ACCUMULATE THE NUMBER OF BITS 
:DROPPED AND PICKED UP FROM EACH CHARACTER. 

:THE NUMBER OF READ ERRORS IS ALSO ACCUMULATED. 
;DATA CHECKING MAY BE TERMINATED BY USE OF 

:CONSOLE SWITCH THIRTEEN (15). 


SRREREAE RAAT AAE TAREE EERE AAT EAE AAKAEEAAAAREEREERER ERS 


BBC ;CLEAR BAD RECORD CNTR 
DERFL ;CLEAR DATA ERROR FLAG 


FMCNT.R5. ;LOAD CHAR COUNT 

#20,UDES ;SEE IF CORE DUMP 

DCHKO ; IF NOT: BR 

R5 sR5 = FC/2 

#WDATA.R1 ;SET WRITE DATA ADDR 

#RDATA,R2 ;SET READ DATA ADDR 

#10,UDES ;SEE IF EVEN PARITY 

DFOCO ;IF NOT: BR 

#20,UDES :SEE IF CORE DUMP PARITY 
co IF SO: BR 

#2000 ,UDES sSEE If “3 MODE 

DFOCO :1F $0: 

(R1) os IF 0. CHAR 

DFOD F SO: BR 

R1 ‘BUMP POINTER 

R5 :SEE IF DONE 

DF OF :IF NOT: BR 

DFOC SELSE CONTINUE 

#20, (R1)+ ;SET 20 IN PLACE OF 0 

ae ;SET PATTERN GENERATE FLAG 

FMCNT,RS ;RESET CHAR CNT 

#UDATA,RI ;RESET DATA ADDRESS 


#10000 ,RDCMD 
DFO 

FACNT,R4 

R4 

#20,UDES 

DF OBO 


:SEE IF READ REVERSE 
: IF NOT: BR 

:GET FRAME COUNT 
:SET TO WHOLE NUMBER 
:SEE IF CORE DUMP 


; IF NOT: BR 
R4 ;SET TO FC/2 
R4,R1 ;POINT TO START OF WRITE DATA 
R4,R2 sPOINT TO START OF READ DATA 
#1, FACNT :SEE IF ODD FRAME COUNT 
DFOA ;IF NOT: BR + 
(R2)+ :BUMP POINTER 
#20,UDES 


;SEE IF CORE DUMP 
DFOA4 :1F NOT: BR 


SEQ 0083 


TMO2/TUSS DATA RELIABILITY PRUGRAM 
CZTUIA.P11 14:49 


016016 


016220 


07-JUN-78 


000402 
005264 
000207 


000001 


000001 


000001 


000001 


162550 


162536 
000632 
000066 
010000 
162510 
162524 
162520 


162500 
010000 


001130 
001170 


162414 


162356 


MACY11 30(1046) 


DFOAO: 


DFOA1: 


DFOA2: 


DFOAS: 
DFOA4: 


DFO: 


DF1: 
DF2: 


DF3: 


DF4: 
DFX: 


G 
135-JUN-78 


#1,-(R2) 
DFOAO 


(R2) 


#1,(R2) 
DFOA1 


(R2) 


#1, (R2) 
DFOA2 


(R2) 


#1, (R2) 
DFOAS 


(R2) 

R2 
-(R1),-(R2) 
DF1 

BBC 

DF2 

ie daa 


UNP ,R4 
#10000 ,RDCMD 
DF4 
DATER1(R4) 
DFX 
DEREV1(R4) 
PC 


7 
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;SEE IF BIT 0 = 
;1F NOT: BR 


;POSITION BITS FOR REVERSE CORE DUMP 


;RESET POINTER 


; TEST DATA CHARACTER 
:1F NOT GOOD: BR 
;CLEAR BAD RECORD COUNTER 


CHECK DATA 
7: IF BAD: BR 
; CLEAR BAD RECORD CNTR 
:GO GET DROPS AND PICKS 
;GO DO PRINT 


;BUMP CHAR CNTR 
IF DONE ALL: BR 
;SEE IF READ “REVERSE 
: IF NOT: BR 

ELSE CONTINUE READ REV 
;CLEAR HEADER FLAG 


: SEE IF HAD DATA ERROR 
sIf NOT: BR 


:1f NOT DATA ERROR ONLY: BR 

:SEE IF READ REVERSE 

sIF SO: BR 

:BUMP DATA ERROR FORWARD COUNTER 


bee REVERSE DATA ERROR 


SEQ 0084 


TMO2/TU4SS DATA arom, BH PROGRAM 
CZTULA.P11 749 


016222 


016356 


07-JUN-78 1 


032777 


004767 


002000 
000172 
162430 
162420 


004724 


005622 
033434 
010000 


005744 


2 
010000 


006132 


162356 


162244 


162214 


MACY11 30(1046) 


DERR: 


DERRO: 


DERROA: 


DERROB: 


DERROC: 
DERROD: 


BIT haat @SwR 


JSR PC,OCTP 
MOV #ASG2,R4 


H 7 
135-JUN-78 13:40 PAGE 85 


SRREAAAAE AAA ETAT AAAATARATARAAATH ATER RA AKHE KARE AERTS 


:DATA ERROR SUBROUTINE: 


;THIS SUBROUTINE IS USED TO PRINT OUT ANY 

sERRORS FOUND DURING THE DATA CHECK. 

;EACH CHARACTER FOUND BAD WILL BE PRINTED 

:IN BIT FORMAT ALONG WITH ITS EXPECTED CHARACTER. 
:AN ERROR HEADER CONSISTING OF THE UNIT NUMBER, 
:BLOCK NUMBER, RECORD NUMBER, SIZE OF RECORD, AND 
ERROR TYPE (READ FORWARD, READ REVERSE, WRITE, ETC) 
:1S PRINTED ONLY ONCE FOR EACH RECORD FOUND BAD. 

:A COUNT IS MADE OF THE NUMBER OF SUCCESSIVE BAD 
:CHARACTERS, AND IF TEN (10) SUCCESSIVE BAD CHARACTERS 
;ARE FOUND IN A SINGLE RECORD, A MESSAGE INDICATING 
:A BAD RECORD CONDITION IS PRINTED AND THE NEXT 


; TWENTY (20) CHARACTERS ARE SKIPPED BEFORE CHECKING 
:1S RESUMED. IF THE BAD RECORD CONDITION IS FOUND 
:THREE TIMES IN A RECORD, ALL REMAINING DATA IS 
SKIPPED EXCEPT THE FINAL TEN (10) CHARACTERS. 
sTHIS SKIPPING IS OF COURSE ONLY POSSIBLE IN 


sRECORDS WHICH CONTAIN A SUFFICIENT NUMBER OF CHARACTERS. 


sPRINTING OF ERRORS MAY BE DISALLOWED AT ANY T 

:BY SETTING CONSOLE SWITCH TEN (10) TO A ONE. 

: THE OPERATOR MAY CAUSE THE PROGRAM TO HALT ON ANY ERROR 
:BY SETTING CONSOLE SWITCH FIFTEEN (15) TO A ONE. 


FREER AAA AAA AAA AE AERA AARARAKAAEEEEAAAAEEAKEEE 


; SEE IF — PRINT ERRORS 


BEQ RRO : IF. $0 
MP DERRS sELSE SKIP PRINT 
INC PFLG :SET PRINT FLAG 
ST HDRFL 


SEE IF ~ PRINTED HEADER 


;1F SO: B 

:PRINT CYCLE NUMBER 
;LOAD ERROR MSG ADDR 
:PRINT ERROR 
;PRINT F OR R 


sPRINT CHAR NO. HEADER 


MOV 2. 

SUB #RDATA,RS ;POINT TO CHAR 

DEC R3 

BIT #10000 ,ROCMD ;SEE IF READ REVERSE 
BEQ DERROB ; IF NOT: BR 

MOV R5.R3 ;GET CHAR NUMBER 

COM R3 


sPRINT CHAR NUMBER 


JSR PC, TTOUT sPRINT EXPECTED DATA 
BIT #10000 ,RDCMD ;SEE IF READ REVERSE 
BEQ DERROC ;1F NOT: BR 

MOVB (R1),R5 ;GET CHAR 

BR DERROD 


;LOAD EXPECTED DATA 


JSR PC,DOUT ;GO PRINT CHAR 


SEQ 0085 


TMO2/TUSS DATA RELIABILITY PROGRAM 
CZTUIA.P11 


6664 
016670 
016674 


012704 


07-JUN-78 14:49 


024736 
005530 
010000 


006100 
010000 


162224 
000010 


002000 
025057 


000003 


162144 
177767 


177767 
010000 


027426 
000001 


161760 


033434 
162014 
000024 
010000 


000024 
000024 


162162 


162140 


162216 
162134 


162152 


162026 


161772 


162044 


162026 


161700 


MACY11 30(1046) 


DERR1: 
DERR2: 


DERRS: 
DERR4: 


1$: 


DERRSA: 


DERR4B: 


I 
13-JUN-78 


#MSG3,R4 
PC, TTOUT 
—- 


PC ,DOUT 
#10000 ,RDCMD 
DERRS 

DERR4 

(R1)+, (R2)+ 
BBC 

#10,BBC 
DEREX 
oe 


#MSG15,R4 
PC, TTOUT 


BBC 
#177767,R5 
DERR6 
#177767,R5 
ae 


DEREX 
FMCNT. TEMP 
TEMP 1 


TEMP 1 
#10, TEMP 
TEMP? ,R1 
#WDATA,R1 
TEMP1 ,R2 
#RDATA,R2 
DEREX 

BBC 


#24,R5 
DERR6 
#10000, RDCMD 
DERRS 
#24,R1 


#24 ,Re 
DEREX 


7 
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;PRINT RECIEVED DATA 
;SEE IF READ REVERSE 
;1F NOT: BR 


;GET CHAR 


;PRINT BAD CHAR 


;SEE IF READ REVERSE 
IF SO: BR 


;RESET POINTERS 
;BUMP BAD yong CNTR 
;SEE IF BLD BIH 


; IF NOT: BR 
:SEE IF PRINT INHIBIT 
; IF SO: BR 


;PRINT BLD BIH 
;RESET BAD RECORD CNTR 
;POSITION > BTH AMOUNT 
:BUMP AMOUNT 

;SEE IF HAD 3 BLD BTHS 

iF NOT: BR 

:REPOSITION BBC 

; SEE oo LAST EIGHT CHARS 


IF SO: B 

;SET CHAR CNTR TO 8 

;SEE IF READ REVERSE 
IF NOT: BR 

:GET START OF BUFFER 
:GET START OF BUFFER 


:POINT TO START +10 
;SEE IF ODD FRAME COUNT 
: IF NOT: BR 

:BUMP POINTER 


;LOAD CHAR COUNT 


;POINT TO BUFFER -8 

sPOINT TO NEXT CHAR 

sPOINT TO NEXT WRITE CHA 

sPOINT TO END OF READ DATA -8 FORWARD 
;POINT TO NEXT CHAR 


“EXIT 

:REPOSITION BBC 

sSKIP 20 CHARS 

:IF EXCEED RECORD SIZE: BR 
:SEE IF READ REVERSE 

: IF NOT: BR 


;RESET POINTERS 


SEQ 0086 


i 7 
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CZTUIA.P11 O7-JUN-78 14:49 SEQ 0087 
3820 016676 062701 000024 DERRS: ADD #24 ,R1 ;SKIP 20 CHARS 
3821 016702 062702 000024 ADD #24 ,R2 7SKIP FORWARD 20 CHARS 
3822 016706 000402 BR DEREX 
3823 016710 012705 177777 DERR6: MOV #-1,R5 ;SET TO EOR 
3824 016714 032777 100000 161664 DEREX: BIT #100000 ,aSWR ;SEE IF SHOULD HALT ON ERROR 
3825 016722 001412 BEQ DEREX1 IF NOT: BR 
3826 016724 000000 HALT 
3827 016726 005767 161740 TST PFLG ;SEE IF PRINTED 
3828 016732 001006 BNE DEREX1 ;I1F SO: BR 
3829 016734 032777 002000 161644 BIT #2000, aSWR ;SEE IF SHOULD PRINT 
3830 016742 001002 BNE DEREX1 ;1F NOT: BR 
3831 016744 000167 177266 JMP DERRO :ELSE PRINT 
3832 016750 005067 161716 DEREX1: CLR PFLG ;CLEAR FLAG 
3833 016754 005267 161726 INC DERFL ; BUMP DATA ERROR FLAG 
3834 016760 000207 RTS PC ; RETURN 





CZTU 


016762 


017170 


005067 


100027 
032777 


010000 


161600 


000222 


161556 
161554 


000010 
000001 


161530 


161572 
161566 


002000 


004030 
000172 


161540 
161534 


002000 


yet DATA RELIABILITY PROGRAM 
A.P11 07-JUN-78 14:49 


161604 


161444 


161410 


MACY11 30(1046) 


DRPKF : 


DRPK: 


DROP: 
DPC: 


DPCG: 
DPCO: 


DPCOA: 


DPC1: 


K 
15-JUN-78 


7 
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SERAAAAAA AAA ATE AATARA AAA TAKARA AAAAARAAATAKAARAKAAR AKA ERE 


:DROPS AND PICKS SUBROUTINE: 


;THIS SUBROUTINE IS USED TO ACCUMULATE FROM 

;EACH BAD DATA CHARACTER FOUND THE NUMBER 

:O0F BITS WHICH WERE EITHER DROPPED OR PICKED UP. 
>TWO COUNTERS PER SLAVE ARE USED TO ACCUMULATE THIS 
; INFORMATION AND CAN STORE UP TO 32K DROPS 


:OR PICKS BEFORE OVERFLOWING. 


IF OVERFLOW IS 


ABOUT TO OCCURS” THESE ACCUMULATORS ARE 
;PRINTED IN OCTAL AND RESET TO ZERO. 

:THE CONTENTS OF THE ACCUMULATORS MAY BE 
:DISPLAYED AT ANY TIME BY SETTING CONSOLE 


;SWITCH FOURTEEN TO A ONE (1). 


THE PRINTOUT WILL OCCUR 


;AT THE END OF THE CURRENT BLOCK CYCLE. 


RARER AERA AAA AA AAA AAA RAAT EAE AAA RERAEEARREKE 


TEMP1 
TEMP2 
TEMPS 
(R1), TEMP ;LOAD GOOD CHAR 
(R2), TEMP2 ;LOAD BAD CHAR 
UNP ,R4 
PIK1(R4),BPKP 
DRP1(R4),BDPP 
#10000, RDCMD : SEE IF READ REVERSE 
DRPK :1F SO: BR 
~(R1),-(R2) POINT TO CHAR 
(R1)+, TEMP 1 ;LOAD GOOD CHAR 
(R2)+, TEMP2 :LOAD BAD CHAR 
PC ,DROP ;GET DROPS 
PC PICK ie 
TEMP1 RS :R3 = GOOD CHAR 
TEMP2 ,R4 ;R4 = BAD CHAR 
R4,R3 ;GET DROPS/PICKS 
DPCG IF SOME: BR 
PC ; RETURN 
#10,BCNT :SET NUMBER TO CHECK 
#1,R3 ;SEE IF DROPPED OR PICKED THIS BIT 
DPC2 :IF NOT: BR 
TEMPS ;SEE IF ON PICKS 
DPC1 ;1F SO: BR 
aBDPP :BUMP DROP CNTR 
aBDOPP 
PC2 : IF NO OVERFLOW: BR 
#2000 ,aSWR >SEE IF HAVE PRINTED DATA 
OA ;IF SO: BR 
PC ,PAPRT :PRINT CYCLE NUMBER 
PC ,DPPRT ;PRINT DROPS AND PICKS 
DPC2A 
aBPKP ;BUMP PICK CNTR 
@BPKP ;SEE IF OVERFLOW 
DPC2 ;1F NOT: BR 
#2000, aSWR >SEE IF HAVE PRINTED DATA 


SEQ 0088 


CZTU 


017176 


001402 
7 


003774 


000010 


161450 


161434 
000002 
000002 
177606 


161370 


177526 
025350 


161256 
000002 
000010 


161212 
000002 


TMO2/TU4S DATA RELIABILITY PROGRAM 
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161460 


161434 
161424 


161406 
161376 


161310 


161254 
161236 


161212 


MACY11 30(1046) 


DPCIA: 
DPC2A: 


DPC2B: 


DPCe: 


DPC3: 
PICK: 


DPPRT: 


DPPRTO: 


DPPRT1: 


DPPRT2: 


DPPRIX: 


ik 
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U 
DRP1(R4).R3 
PIK1(R4),R4 


P,R4 
PIK1(R4),BPKP 
DRP1(R4) ,BDPP 
TEMP1,R4 
TEMP2 RS 
#1, TEMPS 
ng 


C 
#ASG26,R4 
PC, TTOUT 


UNP ,R4 
DRP1(R4) BOPP 


PIK1(R4) ,BPKP 


#10, oe 


IF SO: BR 
;PRINT CYCLE NUMBER 
;PRINT DROPS AND PICKS 


:SET DROP POINTER 
sSET PICK POINTER 
;SET NUMBER OF BITS 
;CLEAR DROPS 

sCLEAR PICK 

sSEE IF DONE 

;IF NOT: BR 

sEXIT 


:GET NEXT BIT 
;SEE IF DONE 


; CONTINUE 
; RETURN 
;GET UNIT POINTER 


sSET PICK POINTER 
4% DROP POINTER 
GCOD CHAR 


:60 CHECK PICKS 


sPRINT DROP HEADER 


:SET DROP POINTER 
;SET PICK POINTER 


SET NUMBER TO PRINT 


:PRINT DROPS 

:SEE IF DONE 

:1F NOT: BR 

:BUMP POINTER 

: CONTINUE FOR ALL 8 BITS 
:SET NUMBER TO PRINT 


;PRINT PICK HEADER 


;PRINT PICKS 

;SEE IF DONE 

;IF SO: BR 

;BUMP POINTER 

: CONTINUE FOR ALL 8 BITS 
; RETURN 


SEQ 0089 





14:49 


TMO2/TU4S DATA RELIABILITY PROGRAM 
P11 07 78 


CZTUIA.P 


017514 


017656 


- JUN- 


016703 


001007 
005777 


161036 
000001 


000020 


000010 
010000 


033434 
000002 


033434 
027426 


021334 


160654 


001466 
000010 


160634 


161012 


161120 
160776 


161020 


MACY11 30(1046) 


ERCHK: 


ERO: 


EROB: 


EROA: 


ER1: 
ER2: 


ER2A0: 


ER2A1: 


ER2A: 


MOV FACNT RS 
B oR3 


ER2 
ADD #RDATA,RS5 
8 ER 


a 7 
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SERA AAA AAA AAAAA AAA AAA AA AAA ATA ARAAAAEK AERA KAA ES 


¢ STATUS CHECK SUBROUTINE: 


: THIS SUBROUTINE IS USED TO PERFORM A CHECK OF 

sBOTH THE MASSBUS CONTROLLER (RH11) AND THE TAPE 
;CONTROLLER (TMO2). THE RH11 IS CHECKED FOR ERRORS 

zAS REFLECTED IN REGISTERS CS1 AND CS2 AND ALSO THAT 
;THE BUS ADDRESS (BA) AND WORD COUNT (WC) ARE 

:CORRECT. THE TMO2 IS CHECKED FOR DRIVE STATIS (DS), 
:DRIVE ERRORS (ER), AND PROPER FRAME COUNT. THE SPECIAL 
:CHECK CHARACTERS (CRC+LRC) ARE ALSO CHECKED WHEN 
:APPROPIATE (IE: NRZ READ OR WRITE). CERTAIN TYPES 

OF DRIVE ERRORS IN PE OPERATION WILL BE ACCOMPANIED 
:BY THE DISPLAY OF THE DEAD TRACK REGISTER (CC). THESE 
sTYPES ARE ER BITS 15,10,7,.6. THE PRINTOUTS OF BAD 
;CRC,LRC,FC, AND BA WILL SHOW BOTH THE EXPECTED AND 
RECEIVED VALUES (IE: EXPT-RCVD). ONLY THOSE REGISTERS 
:WHICH ARE IN ERROR WILL BE PRINTED AND ALL PRINTOUTS 
ARE IN OCTAL FORMAT WITH NO LEADING ZEROS. AS IN 
DATA ERRORS, STATUS ERRORS ARE PRECEEDED BY HEADER 
sDESCRIBING THE HARDWARE UNDER TEST, THE BLOCKING 


S INFORMATION, AND THE ERROR TYPE. 


SEERA AE RATA AAT ASAE AAA AREER AAAAAAEARAAEEERAEREKEKE 


:GET FRAME COUNT 


T #1 :SEE IF ODD 
BEQ ERO 7 IF NOT: BR 
DEC R3 sBUMP COUNT 
NEG 3 
BIT #20,UDES ;SEE IF CORE DUMP 
re EROB :1F NOT: BR 
ROR R3 :SET TO FC/2 
BIT #10,MTC1 :SEE IF WRITE OP 
BEQ ER1 :IF SO: BR 
BIT #10000 .,.RDCMD 
BEQ EROA 
MOV #RDATA,RS 
SUB #2,R3 :SET POINTER 


;BUILD EXPT READ ADDRESS 
;BUILD EXPT WRITE ADDRESS 
; SAVE ADDRESS 
;CLEAR FLAGS 


;SEE IF ADDRESS OK 
IF SO: BR 


BEQ ER2A1 : 

INC BAER :SET BUS ADDRESS ERROR 
BIT #10,MTC1 >SEE IF WRITE OPER 

BNE ER2B ;1F NOT: BR 

TST arc :SEE IF FC=0 


SEQ 0090 


be te gt RELIABILITY _ 


A.P 


017662 


020154 


005267 
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001452 
000076 
000040 
160770 
160640 
160572 
001410 
000034 
002000 
010000 
000002 
000001 
160000 
160512 
000307 
160656 


001000 


060000 
160630 


160446 
000010 


000100 
001000 
001230 
040000 
16055€ 


160374 
000010 


000100 
001000 


001160 


160772 


160606 
160606 


160510 


160446 


160466 


160406 


160414 


MACY11 30(1046) 


ER2B: 


ER2C: 


ER2D: 


ER2E: 
ER3: 


ER3SA: 


ER3SA1: 


ER3B: 
ER4: 


ER4A1: 


ER4A: 


N 

13-JUN-78 
ER- 
FCER 
ERS 
#40 ,MTC1 
ER2A 

TMFLG 
ER2D 
FMCNT,R3 
R3 
R3,aFC 
ER3 

A 
a UDES 


ER 
#10000, »RDCMD 


ER 
#160000 ,aC1 
ER4 


acs,R3 
#307,R3 
R3 


ERSA 
TMFLG 


ER3B 
#1000 ,R3 
R3 


ER3SB_ 
#60000 ,aC1 
ER 


#1000, oR3 
ER4 

CONER 
#40000,aDS 
ER 


#1000,R3 
R3 


ER6 
DRVER 


7 P 
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SEQ 0091 


; IF SO: BR 
;SET FC ERROR 


+SEE If SPACE OPER 
F SO: BR 


B 
‘SEE IF TM TIME 
:1F SO: BR 


:R3 = EXPT ye SIZE 
sSEE IF FC = EXP 
;IF SO: BR 

= SET FC ERROR FLAG 
;SEE IF PE 
sIF SO: BR 

" sSEE IF READ REVERSE 
: IF SO: BR 


;LOOK FOR EXPT = 2. 


:GO CHECK FC FOR TM 
;SEE IF COUNT ERROR 


:GET CONT STATUS REG . 
:MASK OUT IR,OR,UNIT NO. yy 
:SEE IF ANY OTHER ERRORS 

:1F NOT: BR 

“SEE IF TAPE MARK TIME 

If NOT: BR 


:MASK MISSED TRANS 
;SEE IF ANY OTHER ERRORS 


:1F SO: BR 
sSEE IF EITHER TRE OR MCPE 
IF ON NOT: BR 
‘= IF TM TIME 
F NOT: BR 
“GET ERROR REGISTER 
:SEE IF EVEN PARITY 
“IF NOT: BR , 
:MASK PAR 
sMASK FCE 


:1f NO ERRORS EXCEPT FCE: BR 
;SET CONT ERROR FLAG 
DRIVE ERROR 


T: BR 

TAPE MARK TIME 
4 BR 

EVEN PARITY . 
T: BR 


“MASK PAR 

sMASK OUT FCE 

:SEE IF ANY OTHER ERRORS 
:1F NOT: BR 

:SET DRIVER ERROR FLAG 





B 8 
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CZTUIA.P11 07-JUN-78 14:4 SEQ 0092 
4056 020160 032767 002000 160364 ER6: BIT #2000 .UDES | 
4057 020166 001071 BNE ERPT If IN PE MODE: BR 
4058 020170 032777 C20000 160410 BIT #20000 , aSwR ;SEE IF NO DATA CHECK 
4059 020176 001065 BNE ERPT :1F NOT: BR (ALLOW READ OF UNKNOWN TAPES) 
4060 020200 032767 000040 160466 BIT #40 ,ATC1 ;SEE IF WRITE OR READ OP 
4061 020206 001461 BEQ ERPT IF NOT: BR 
4062 020210 ©5767 160464 TST TAFLG ;SEE IF TAPE MARK TIME 
4063 020214 0(1413 BEQ ER6A ; IF NOT: BR 
4064 020216 016767 175356 001130 MOV EXCRC.CRCSV sSAVE CRC 
4065 020224 016767 175352 001120 MOV EXLRC,.LRCSV sSAVE LRC 
4066 020232 005067 175342 CLR EXCRC 
4067 020236 012767 000023 175336 MOV #23, EXLRC ;SET CRC/LRC FOR TM 
4068 020244 032767 000060 160300 ER6A: BIT #60 ,UDES 
4069 020252 001037 BNE ERPT 
4070 020254 017703 160250 MOV acc.R3 ;GET CRC CHARACTER 
4071 020260 042703 177000 BIC #177000 ,R3 
4072 020264 026703 175310 CMP EXCRC,R3 
4073 020270 001402 BEQ ER? ;1F CRC GOOD: BR 
4074 020272 005267 001050 INC CRCER ;SET ERROR FLAG 
4075 020276 017703 160232 ER7: MOV QAR RS sGET LRC 
4076 020302 000303 SWAB R3 
4077 020304 005703 TST R3 
4078 020306 100002 BPL 
4079 020310 052703 000400 BIS #400 R35 
4080 020314 042703 177000 ER10: BIC #177000,R3 
4081 020320 026703 175256 CMP EXLRC.RS 
4082 020324 001412 BEQ ERPT IF LRC GOOD: BR 
4083 0203526 010367 001016 MOV R3,ACTLRC ;SAVE ACTUAL LRC 
4084 020332 005267 001006 INC LRCER ;SET LRC ERROR FLAG 
4085 020336 032767 010000 160216 BIT #10000 ,RDCMD ;SEE IF READ REVERSE 
4086 020344 001402 BEQ ERPT IF NOT: BR 
4087 020346 005067 000772 CLR LRCER SELSE CLEAR LRC ERROR 
4088 020352 012703 000006 ERPT: MOV #6,R5 
4089 020356 005067 160326 CLR SERFL ;CLEAR ERROR FLAG 
4090 020362 005067 160336 CLR ERSAV 
4091 020366 012704 021534 MOV #BAER ,R4 
4092 020372 005724 ERPTT: TST (R4)+ ;SEE IF ANY ERROR 
4093 020374 001004 BNE ERPTG IF SO: BR 
4094 020376 005303 DEC 3 
4095 020400 0013574 BNE ERPTT 
4096 020402 000167 000670 JMP ERPX1 
4097 020406 005267 160276 ERPTG: INC SERFL ;SET ERROR FLAG 
4098 020412 017767 160106 160304 MOV @ER ,ERSAV ;SAVE ERROR REGISTER 
4099 020420 032777 002000 160160 BIT #2000, aSWR ;SEE IF PRINT 
4100 020426 142 BEQ ERPTO :IF SO: BR 
4101 020430 022767 000002 160256 CMP #2,RTYFL ;SEE IF READ RETRY 
4102 020436 1 BNE ERPTG1 ; IF NOT: BR 
4103 020440 016703 160240 MOV RTCNT,RS 
4104 020444 005203 INC ;BUMP RETRY COUNT 
4105 020446 020367 160130 CMP R3,RETRY sSEE IF LAST RETRY 
4106 020452 001406 BEQ T0 :I1F SO: BR 
4107 020454 022767 000002 000656 ERPTG1: CMP #2 ,DRVER ;SEE IF TM STATUS ERROR 
4108 020462 001402 BEQ ERPTO :IF SO: BR 
4109 020464 000167 000510 JMP ERPXO 
4110 020470 005267 160176 ERPTO: INC PFLG 
4111 020474 004767 002500 JSR PC,PAPRT PRINT HEADER 


TMO2/TU4S DATA RELIABILITY PROGRAM 


CZTULA.P11 


021022 


07-JUN-78 


016704 


004767 
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160150 
003412 
000642 
160160 
026210 
026226 
003360 
000570 


025160 


003464 
000524 


025213 


000452 
025173 


000410 
025200 


000346 
026255 


003246 


7 


160124 


157726 


. @ 
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ERPT1: 


ERPT2: 


ERPTS: 


ERPT4: 


ERPT5: 


EMADDR ,R4 


ERPT 
#MSG54 ,,EMADDR 
RPT1 


E 
#MSG56,R4 


PC,OCTP 
#ASG23D ,R4 


PC, TTOUT 
@ER,RS 
PC,OCTP 
BAER 
ERPTS 
#MSG23B ,R4 
PC, TTOUT 


ERPTS 
#MSG23C R4 
PC, TTOUT 
aFC.R3 


ERPTSA 
#ASG58 ,R4 
PC, TTOUT 
acc,R3 
#177000,R3 
PC,OCTP 


SEQ 0093 


;PRINT ERROR TYPE 


;PRINT 


; PRINT 


7; IF NO 
PRINT 
;PRINT 
;PRINT 
;PRINT 
:IF SO 
;PRINT 
;PRINT 
;PRINT 
sPRINT 
IF NO 
;PRINT 
:PRINT 
;PRINT 
;PRINT 
:1F NO 
:PRINT 
; PRINT 
;PRINT 
:PRINT 
:1F NO 
;PRINT 


; PRINT 


F OR R 


TA 


CONT ERROR: BR 
C1 TAG 
at 

CONT STATUS 
DRIVE ERROR: BR 
DS TAG 

DRIVE STATUS 
ER TAG 

DRIVE ERROR 
BA ERROR: BR 
BA TAG 

BUS ADDRESS 

/ 

EXPT BUS ADDRESS 
FC ERROR: BR 
FC TAG 

FRAME COUNT 
WC TAG 

WORD COUNT 

CRC ERROR: BR 
CRC TAG 


ACTUAL CRC 


TMO2/TU4S DATA RELIABILITY PROGRAM 
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021026 


021342 


012767 


000000 
000000 
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000255 
2 


000270 
026261 


000214 
002000 
157362 
075477 


025232 
002740 
157342 
177000 
003076 


100000 


157454 
002000 
177234 


— 157432 


000011 
157254 
157250 
157226 


000100 
157256 
000040 
157366€ 


000034 
000024 


157604 


157534 


157416 


157400 


157360 


157242 


157244 
157370 


174256 
174252 


MACY11 30(1046) 


ERPTSA: 


ERPT6: 


ERPT?7: 
ERPXO: 


ERPX: 


ERPX1: 


D 
13-JUN-78 


#255,T0B 
P G 


#ASG59,R4 
PC, TTOUT 
ACTLRC,RS 


ERPT7 
#2000 ,UDES 
ERPT? 
@ER,R4 
#75477,R4 
R4 

ERPT? 
#ASG23H ,R4 
PC, TTOUT 
acc,R5 
#177000 ,R3 
PC,OCTP 
#100000 ,aSwR 
ERPX 


PFLG 
ERPX 
#2000 ,aSWR 
ERPX 
ERPTO 
PFLG 
#11,aC1 
@AS,R4 
R4,@AS 
C1,R4 

R4 

#100, (R4) 
U 


CRCSV,EXCRC 
ne 


8 
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;PRINT EXPECTED CRC 
;1F NO LRC ERROR: BR 
;PRINT LRC TAG 
PRINT ACTUAL LRC 


PRINT EXPECTED LRC 

:1F NO DRIVE ERROR: BR 

;1F NO PE: BR 

;MASK OUT ALL BUT BITS 15,10,7.6 
;1F NO CONDITIONALS SET: BR 
:PRINT CC TAG 


MASK CC 
sPRINT CHECK CHARACTERS 


sSEE IF STOP ON ERROR 
NOT: BR , 


;SEE IF HAVE PRINTED 
;IF SO: BR 

:SEE IF SHOULD PRINT 
: IF NOT: BR 

:PRINT ERROR 


:DRIVE CLEAR 
CLEAR AS 


RESET TRE 
sRESET TC 


:1F NOT READ/WRITE OP: BR 
;1F NOT TM TIME: BR 
sRESTORE CRC 

RESTORE LRC 


sEXIT 
:EXPT ADDRESS SAVE 


SEQ 0094 
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021544 


021354 


021356 


021420 


000000 
000000 
000000 


000000 
000000 


032767 


000207 
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000010 157310 


0000 
02511 
002514 
025110 
002502 


157300 


MACY11 30(1046) 


LRCER: 
CRCER: 
ACTLRC: 
LRCSV: 
CRCSV: 


FRPRT: 


FRO: 
FREX: 


E—E 8 
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0 
0 
0 
0 
0 


SRA AA AAA E ATE A EAE AAA AHA E AAA AAAAARAAAAARAEAEERE KES 


F FOR FORWARD/R FOR REVERSE PRINT SUBROUTINE: 


;THIS SUBROUTINE IS USED TO PRINT OUT THE 

: TAPE DIRECTION USED WHEN ANY ERROR IS 
:DETECTED IN STATUS OF READ OR WRITE, DATA, OR 
; SPACING OPERATIONS. 


SAREE AAAS AEA ATTA AAA EE REA EEAAEAAREEKEKAEE REESE 


BIT #10,MTC1 ;SEE IF WRITE COMMAND 
B REX ;1F SO: BR 


EQ FRE :1F SO: 
BIT #2,MTC1 ;SEE IF REVERSE 
BEQ FRO : IF NOT: BR 
MOV #MSG17,R4 
JSR PC, TTOUT PRINT R 
BR FREX 
MOV #ASG16,R4 
JSR PC, TTOUT sPRINT F 
RTS PC sEXIT 


SEQ 0095 
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CZTUIA.P11 07-JUN-78 14:49 SEQ 0096 
4250 
4251 SRRAAAAAA TATA TA TAA AT ATA AA AAATATA Ae Aee eee eee eee AA ee ° 
asee ; TAPE COMMAND EXECUTE SUBROUTINE: 
4254 : THIS SUBROUTINE IS USED TO EXECUTE THE 
4255 :MAG TAPE COMMAND DESCRIBED BY THE READ 
4256 :OR WRITE ROUTINE. THE FINAL COMMAND IS 
4257 :SENT TO THE DEVICE REGISTER ALONG WITH THE 
4258 ; INTERRUPT ENABLE AND GO BITS. 
4259 sONCE THE COMMAND IS ISSUED, AN INTERRUPT 
4260 :TIMER IS STARTED AND IF NO INTERRUPT IS RETURNED 
4261 :BEFORE TIME OUT OCCURS, AN ERROR WILL BE 
4262 sPRINTED AND THE PROGRAM STOPPED. TESTING MAY 
4265 :BE RESUMED BY PRESSING THE CONTINUE SWITCH. 
4264 : TWO INTERRUPT HANDLERS ARE USED, ONE FOR MAG TAPE 
4265 : AND ANOTHER FOR TELETYPE (TTY). 
4266 :UPON RECEIPT OF A MAG TAPE INTERRUPT, HOUSEKEEPING 
4267 :1S PERFORMED AND CONTROL RETURNED TO THE CALLING 
4268 ROUTINE (READ ,WRITE,ETC). 
4269 sRECEIPT OF A TTY INTERRUPT WILL CAUSE THE 
4270 :PROGRAM TO CHECK FOR ENTRY OF A CNTRL C CHARACTER. 
4271 : IF NOT CNTRL C, THEN CONTINUATION OF WAIT FOR MAG 
4272 : TAPE INTERRUPT IS RETURNED. IF, HOWEVER, THE TTY 
4273 : INTERRUPT WAS CAUSED BY ENTRY OF A CNTRL C, 
4274 : THEN AT THIS TIME REQUESTS FOR NEW STALL VALUES 
4275 sARE PRINTED AND THE RESPONSES ENTERED. RESUMPTION 
4276 :OF TAPE INTERRUPT WAIT IS THEN RESUMED. 
4277 SERRE EAAAA AERA ATTA AAA A TARA AAA AAAAAAAAAAAAAEAERAKEAAEEE 
4278 , 
4279 021422 005067 157216 TAPG: CLR TEMP 
4280 021426 016777 157116 157064 MOV tin ly sSET DRIVE NO. 
4281 021434 016704 157236 TAPGO: MOV :GET UNIT POINTER 
4282 021440 032777 010000 157054 BIT yT00C0, ads sSEE IF WAVE MOL 
4283 021446 001046 BNE TAPG3 :1F SO: BR 
4284 021450 005267 157170 INC TEMP :SEE IF TIMED OUT 
4285 021454 001367 BNE TAPGO :WAIT FOR READY 
4286 021456 032777 002000 157122 BIT #2000, aSwR :SKIP PRINT? 
4287 021464 001034 BNE MOLEX 
4288 021466 036467 022122 157140 BIT MOLTAB(4),MOLSW ;FIRST TIME? 
4289 021474 001030 BNE MOLEX :NO 
4290 021476 056467 022122 157130 BIS MOLTAB(4),MOLSW ;SET FLAG | 
4291 021504 004767 001470 JSR PC ,PAPRT sPRINT CYCLE NUMBER 
4292 021510 032767 000010 157156 BIT #10,ATC1 sSEE IF WRITE OP 
4293 021516 001005 BNE TAPG1 “IF NOT: BR 
4294 021520 012704 024750 MOV #MSG5,R4 
4295 021524 004767 002372 JSR PC, TTOUT :PRINT WRITE ERR 
4296 021530 000406 BR TAPG2 
4297 021532 012704 024755 TAPG1: MOV #ASG6 RS 
4298 021536 004767 002360 JSR PC, TTOUT :PRINT READ ERR 
4299 021542 004767 177610 JSR PC,FRPRT sPRINT F OR R 
4300 021546 012704 025310 TAPG2: MOV #MSG25,R4 
4301 021552 767 002344 JSR PC,TTOUT :PRINT NO MOL ERR 
4302 021556 005726 MOLEX: POPSP 
4303 021560 000167 162432 JMP START? 
4304 021564 016704 157106 TAPG3: MOV UNP ,R4 
4305 021570 046467 022122 157036 BIC MOLTAB(4) ,MOLSW ;CLEAR FLAG 
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CZTULA.P11 O07-JUN-78 14:49 . SEQ 0097 
4306 021576 032777 020000 156716 BIT #20000,aDS ;SEE IF PIP RESET 
4307 021604 001412 BEQ TAPG3F ; IF SO: BR 
4308 021606 004767 001366 JSR PC ,PAPRT :PRINT HEADER 
4309 021612 012704 027352 MOV #MSG116,R4 
4310 021616 004767 002300 JSR PC, TTOUT ;PRINT REWINDING MESSAGE 
4311 021622 032777 020000 156672 1$: BIT #20000,aDS 
4312 021630 0013574 BNE 1$ ;AWAIT PIP RESET 
4313 021632 022767 000026 157034 TAPG3F: CMP #26,MTC1 sSGe IF (WRITE ™™ 
4314 021640 001003 BNE TAPGSA ;1F NOT: BR 
4315 021642 012704 177777 MOV #-1,R4 ZELSE SET FC FOR -1 
4316 021646 000406 BR TAPG3B 
4317 021650 016704 156702 TAPG3A: MOV FMCNT,R4 
4318 021654 032704 000001 BIT #1,R4 
4319 021660 001401 BEQ TAPG3B 
4320 021662 0053504 DEC R4 
4321 021664 000261 TAPG3B: SEC 
4322 021666 006004 ROR R4 sSET WC = FC/2 FOR NORMAL FORMAT 
4323 021670 032767 000020 156654 BIT #20,UDES ;SEE IF CORE DUMP FORMAT 
4324 021676 001402 BEQ TAPG3C ;1F NOT: BR 
4325 021700 000261 SEC 
4326 021702 006004 ROR R4 sSET WC = FC/4 FOR CORE DUMP 
4327 021704 010477 156602 TAPG3C: MOV R4,awC ;SET WORD COUNT 
4328 021710 012777 000011 156572 MOV #11,aC1 ;DRIVE CLEAR 
4329 021716 017777 156574 156572 MOV aFC,aFCc sRESET FC LOADED 
4330 021724 005767 156636 TST INTRF ;SEE IF INTERCHANGE READ 
4331 021730 001407 BEQ TAPG3D ;1F NOT: BR 
4332 021732 032767 000040 156734 BIT #40 ,MTC1 ;SEE IF READ OP 
4333 021740 001403 BEQ TAPG3D ; IF NOT: BR 
4334 021742 012777 000003 156564 MOV #3 ,aMR =SET INTERCHANGE READ MAINT. MODE 
4335 021750 016704 156720 TAPGSD: MOV MTC1,R4 :GET COMMAND 
4336 021754 042704 177707 BIC #177707 R4 sMASK OP CODE 
4337 021760 022704 000030 CMP #30,R4 :SEE IF SPACE OP CODE . 
4338 021764 001403 BEQ TAPGS3E IF SO: BR 
4339 021766 012767 177740 156674 MOV #-40,STAL :SET INTERRUPT DELAY MULT TO 40 
4340 021774 052767 000101 156672 TAPGSE: BIS #101,MTC1 ;SET INTERRUPT ENABLE AND GO 
4341 022002 000240 NOP 
4342 022004 016777 156664 156476 MOV MTC1,aC1 sEXECUTE COMMAND 
4343 022012 005077 156566 “Th, CLR aPsw :CLEAR PRIORITY m 
4344 022016 005967 156622 3 CLR TEMP 
4345 022022 005267 156616 TAPG4: INC TEMP) ;SEE IF HAVE TIMED OUT 
4346 022026 001375 BNE TAPG4 ; IF NOT: BR 
4347 022030 005267 156654 INC STAL 
4348 022034 001372 BNE TAPG4 :D0 TIME DELAY MULTIPLIER 
4349 022036 012777 000340 156540 TAPG5: MOV #340 ,aPSw RESET PRIORITY 
4350 022044 032777 002000 156534 BIT #2000, aSWR ;SEE IF SHOULD PRINT ERRORS 
4351 022052 001014 BNE TAPG6 ; IF NOT: BR 
4352 022054 004767 00112¢ JSR PC ,PAPRT ;PRINT CYCLE NUMBER 
4353 022060 016704 156570 MOV EMADDR ,R4 
4354 022064 004767 0020352 JSR PC, TTOUT :PRINT ERROR OP 
4355 022070 004767 177262 JSR PC, FRPRT ;PRINT F OR R 
4356 022074 012704 025270 MOV #ASG24 ,R4 
4357 022100 004767 002016 JSR PC, TTOUT ;PRINT NO INTERRUPT 
4358 022104 032777 100000 156474 TAPG6: BIT #100000 ,aSwR :SEE IF SHOULD HALT ON ERROR 
4359 022112 001401 BEQ TAPG? ;1F NOT: BR 
4360 022114 000000 HALT 


4361 022116 000167 000100 TAPG7: JMP MTINTA RETURN TO CALLING ROUTINE 
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022140 
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MOL TAB: 


SEQ 0099 
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022142 


022214 


022216 


022230 


012777 


000002 


000240 
022626 
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000340 
156434 
000203 


156456. 


171560 
156446 
156404 
000100 


000037 
156430 


156434 
156430 


156374 


156304 
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TTINT: 


TTINTO: 


MTINT: 


MTINTA: 
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SEQ 0100 


-TTY INTERRUPT HANDLERetteeteane 


MOV #340 ,aPSw ;RESET 

CLR aqKS ; CLEAR TTY STATUS 
CMPB #203, aTKB ;SEE IF CONT C 

BEQ TTINTO :IF SO: BR 

RTI SELSE RETURN 

MOV RO, TEMPS ;SAVE ROCREC CNTR) 
JSR PC, TINP4 :GO GET STALL VALUES 


RESTORE ROCREC CNTR) 


CLR aTkB sCLEAR TTY BUFFER . 
MOV #100,aTKS sRESET INTERRUPT ENABLE 

RTI ;RETURN 

:MAG TAPE INTERRUPT HANDLER* *tteeenne 

NOP 

CMP (SP)+, (SP)+ sRESET STACK POINTER 

BIC #37,aMR s;CLEAR MAINT MODE 

JMP @RTRN : RETURN 
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CZTUIA.P 07-JUN-78 14:49 SEQ 0101 
4392 Peeeeeaeeeeeeeeeteereeeteteetereres 
cia :AUTO SEQUENCE 
4395 -THIS ROUTINE ,ENTERED VIA STARTING ADDRESS 240 
4396 -WILL EXERCISE ALL AVAILABLE SLAVES ON ALL AVAILABLE 
4397 “DRIVES IN BOTH PE AND NRZ ACCORDING TO THE PRESELECTED 
4398 -TEST PLAN. IF NRZ ONLY, PE TESTING WILL NOT BE ATTEMPTED. 
4399 SRERTAAAAAAAAAAAATAT ATE AAA TAAATe TAA TEE 
4400 
4401 022234 012704 027162 - ASEQ: MOV #MSG108,R4 
4402 022240 004767 001656 JSR PC, TTOUT :PRINT NRZ ONLY REQUEST 
4403 022244 012705 000652 MOV #NRZOF RS :SET ADDRESS OF FLAG 
4404 022250 012701 000001 MOV #1,R1 :SET SIZE OF ENTRY 
4405 022254 012702 000001 MOV #1,R2 SET UPPER LIMIT 
4406 022260 012703 000000 MOV #0,R3 SET LOWER LIMIT 
4407 022264 004767 001374 JSR PC,TTR :GO GET RESPONSE 
4408 022270 012704 026757 MOV #MSG104,R4 
4409 022274 004767 001622 JSR PC, TTOUT :REQUEST CONT OR NOT 
4410 022300 012705 000744 MOV #ASEQCF RS :SET ADDRESS OF ENTRY 
4411 022304 012701 000001 MOV #1,R1 sSET SIZE OF ENTRY 
4412 022310 012702 000001 MOV #1,R2 >SET UPPER LIMIT 
4413 022314 012703 000000 MOV #0,R3 :SET LOWER LIMIT 
4414 022320 004767 001340 JSR PC,TTR :GO GET INPUT 
4415 022324 005067 156410 ASEQO: CLR ADRVN :CLEAR DRV NUM 
4416 022330 004767 000130 ASEQ1: JSR PC,HRDS :GO SELECT HARDWARE CONFIGURATION 
4417 022334 012704 026711 MOV #4SG101, R4 
4418 022340 004767 0017556 JSR PC, TTOUT :PRINT DIVIDER 
4419 022344 012704 026737 MOV #4SG102,R4 
4420 022350 004767 001546 JSR PC, TTOUT :PRINT TMO2 NUMBER 
4421 022354 016703 156360 MOV ADRVN,R3 
4422 022360 004767 001710 JSR PC,OCTP :PRINT TMO2 
4423 022364 012704 026746 MOV #456103, R4 
4424 022370 004767 001526 JSR PC, TTOUT :PRINT SLAVE HDR 
4425 022374 012700 000746 MOV #UN1,RO POINT TO START OF SLAVE TABLE 
4426 022400 005710 ASEQ2: TST (RO) :SEE IF END 
4427 022402 100404 BMI ASEQ3 :1F SO: BR 
4428 022404 012003 MOV (RO)+,R3 
4429 022406 004767 001662 JSR PC,OCTP :PRINT SLAVE TABLE 
4430 022412 000772 BR ' ASEQ2 :DO ALL 
4431 022414 004767 000216 ASEQ3: JSR PC,AMOD1 :GO DO MODE 1(NRZ) 
4432 022420 004767 000406 JSR PC, AMOD2 :GO DO MODE 2(PE) 
4433 022424 022767 000007 156306 ASEQ4: CMP #7, ADRVN “SEE IF DONE ALL DRIVES 
4434 022432 001403 BEQ ASEQX :1F SO: BR 
4435 022434 005267 156300 INC ADRVN :BUMP DRIVE NUMBER 
4436 022440 000733 aR ASEQ1 > CONTINUE 
4437 022442 005767 156276 - ASEQX: TST ASEQCF :SEE IF CONTINUOUS AUTO SEQ 
4438 022446 001005 BNE ASEQXX ; -1F SO: BR 
4439 022450 012704 026670 MOV #¥MSG100,R4 
4440 022454 004767 001442 JSR PC, TTOUT PRINT END OF PASS 


HALT 
4442 022462 000720 ASEQXX: BR ASEQO 


CZTU 


022634 


005067 


000207 


162312 


010000 


177672 
040000 


000746 
155770 
010000 
156056 


000007 


156036 
156030 


177777 
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156016 
156010 


155776 


155742 


162164 
162152 


MACY11 30(1046) 


HRDS: 


HRDSO: 
HRDS1: 


HRDS2: 


HRDS3: 


HRDS4: 


L 
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SUBROUTINE TO SELECT AUTO SEQUENCE HARDWARE*teeeees 


ADRVN,@CS 
aDT.R 
#10000,aCS 
HRDS1 
(SP)+ 
ASEQ4 
#40000,R1 
HRDSO 

RO 

#UN1,R1 


RO,aC2 
#10000,a0S 


HRDSO 
TEMP1 ,REOTC 
MP1 


TEMP1 ,REOTC 
#-71,(R1) 
PC 


~ 
m 


;CLEAR EOT UNIT CNTR 


: INIT 

:SET DRIVE 

;READ DRIVE TYPE 

sTEST FOR NON-EXISTANT DRIVE 


;IF DRIVE AVAIL: BR 
;RESET STACK POINTER 
; IF NOT: BR 
:SEE IF DRIVE IS TAPE 

; IF NOT: BR 

:SET START OF SLAVE TABLE 

;SELECT SLAVE 

;SEE IF SLAVE AVAIL FOR TEST(MOL) 

:IF NOT: BR 

;SET SLAVE FOUND FLAG 

;LOAD SLAVE TABLE 

+o IF — ALL SLAVES 


sIF $0: B 

sELSE BUMP SLAVE NUMBER 
sCONTINUE SELECTION 

;SEE IF FOUND ANY SLAVES 
sIF NOT: BR 

:SET NUMBER OF UNITS 
sSET EOT CNTR 


; TERMINATE SLAVE TABLE 
;RETURN TO SEQ 


SEQ 0102 
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CZTUIA.P11 07-JUN-78 14:49 SEQ 0103 
4475 
ase ;SUBROUTINE TO SELECT NRZ AUTO TEST MODE*teexeneaese 
4478 022636 005067 156014 AMOD1: CLR BLCNTR ASSURE BLOCK COUNTER IS 0 
4479 022642 012701 000746 MOV #UN1,R1 ;GET START OF SLAVE TABLE 
4480 022646 052721 001700 AMOD1A: BIS #1700, (R1)+ ;SET ALL SLAVE TO NRZ,NORM,ODD 
4481 022652 005111 COM (R1) 
4482 022654 001402 BEQ AMOD1B IF FILLED ALL SLAVES: BR 
4483 022656 005111 COM (R1) 
4484 022660 000772 BR AMOD1A sELSE DO ALL 
4485 022662 005111 AMOD1B: COM (R1) 
4486 022664 004767 162126 JSR PC ,RWNDA ;GO REWIND ALL AVAIL SLAVES 
4487 022670 012767 000062 156044 MOV #50.,ABLCNT ;SET NUMBER OF BLOCKS FOR MODE 1 
4488 022676 012767 174000 155652 MOV #-4000,FACNT :SET FC = 4000 
4489 022704 012767 000100 155642 MOV #100,RCNT ;SET REC CNTR = 100 
4490 022712 016767 156022 155630 MOV ADRVN.DVN ; SELECT DRIVE 
4491 022720 012767 000001 155632 MOV #1,PATRN ;SELECT PATTERN 1 
4492 022726 005067 155632 CLR TMEX SASSURE NO TMK 
4493 022732 005067 155630 CLR INTRF SASSURE NORMAL READ 
4494 022736 004767 160226 JSR PC,STAUTO ;GO DO AUTO MODE 1 
4495 022742 012767 000010 155610 MOV #10, PATRN :SELECT PATTERN 10 
4496 022750 004767 160214 JSR PC,STAUTO :GO DO PATTERN 10 
4497 022754 012767 000014 155576 MOV #14,PATRN ;SELECT PATTERN 14 
4498 022762 004767 160202 JSR PC,STAUTO 
4499 022766 005767 155660 TST NRZOF ;SEE IF NRZ ONLY 
4500 022772 001411 BEQ AMOD1IC ;IF NOT: BR 
4501 022774 012767 177777 155740 MOV #-1,ABLCNT :FORCE TO EOT 
4502 023002 012767 153624 155614 MOV #153624 ,RANBAS 
4503 023010 012767 032561 155610 MOV #32561,RANSAV ;RESET RANDOM DATA BASE 
4504 023016 012767 177777 155534 AMODIC: MOV #-1,PATRN ;SELECT AUTO RANDOM DATA - 
4505 023024 004767 160140 JSR PC, STAUTO 


4506 0230350 000207 RTS PC ;RETURN TO SEQ 
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CZTUIA.P11 07-JUN-78 14:49 SEQ 0104 
4507 
ret ;SUBROUTINE TO SELECT PE AUTO TEST MODE*teexnnene 
4510 023032 005767 155614 AMOD2: TST NRZOF ‘7 IF NRZ ONLY 
4511 023036 001057 BNE AMOD2X F SO: BR 
4512 023040 005067 155612 CLR BLCNTR “CLEAR BLOCK CNTR 
4513 023044 012701 000746 MOV #UN1,R1 ;SET START OF SLAVE TABLE 
4514 023050 042711 001700 AMOD2A: BIC #1700, (R1) sCLEAR NRZ 
4515 023054 052721 002300 BIS #2300, (R1)+ :SET TO PE NORM, ODD 
4516 0235060 005111 COM (R1) ;SEE IF ENv OF TABLE 
4517 023062 001402 BEQ AMOD2B :IF SO: BR 
4518 023064 005111 COM (R1) 
4519 023066 000770 BR AMOD2A ; CONTINUE 
4520 023070 005111 AMOD2B: COM (R1) 
4521 023072 004767 161720 JSR PC,RWNDA s;REWIND ALL SLAVES 
4522 023076 012767 000006 155636 MOV #6, ABLCNT ;SET AUTO BLOCK COUNT 
4523 023104 012767 174000 155444 MOV #-4000, FMCNT ;SET FC = 4000 
4524 023112 012767 000100 155434 MOV #100,RCNT ;SET REC CNTR TO 100 
4525 023120 012767 000010 155432 MOV #10,PATRN ;SELECT PATTERN 10 
4526 023126 004767 160036 JSR PC,STAUTO :G0 DO AUTO SEQ 
4527 023132 012767 000014 155420 MOV #14,PATRN ;SELECT PATTERN 14 
4528 023140 004767 160024 JSR PC,STAUTO 
4529 023144 012767 000015 155406 MOV ‘ #15,PATRN ;SELECT PATTERN 15 
4530 023152 004767 160012 JSR PC,STAUTO 
4531 023156 012767 177777 155556 MOV #-1,ABLCNT sFORCE TO END OF TAPE 
4532 023164 012767 177777 155366 MOV #-1,PATRN ;SELECT AUTO RANDOM DATA 
4533 023172 004767 157772 JSR PC,STAUTO 
fie 023176 000207 AMOD2X: RTS PC ;RETURN TO SEQ 
4536 
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000412 
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025026 


155272 
177770 


000620 
000010 
000001 


000566 
155212 


177760 


000122 
000616 


155314 


155240 


155206 


155230 PAPRTA: : 
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PAPRT: 


PAPRTO: 


BR 
PAPRTB: TST ASEQF 


STRATA AAA AAA RAAT AAAS ASK AA TATA AAAARAAAARAAAARAAAATE 


sERROR HEADER PRINT SUBROUTINE: 


;THIS ROUTINE IS USED TO PRINT OUT A HEADER 
;WITH EACH ERROR MESSAGE. THE PRINT IS IN TWO 
LINES AND CONTAINS THE FOLLOWING INFORMATION. 
: DRIVE NO. SLAVE NO. DENSITY PARITY FORMAT 
: : CURRENT BLOCK NUMBER, RECORD NUMBER IN 
:WHICH THE ERROR OCCURED PLUS THE TOTAL NUMBER 
;OF RECORDS IN THIS BLOCK, THE RECORD SIZE (NUMBER 
[OF CHARACTERS), AND THE ERROR TYPE (READ,WRITE, SPACE, ETC) 
:PLUS THE TAPE DIRECTION (FORWARD OR REVERSE). 
;ALL NUMBERS ARE IN OCTAL. 


SERRATE AAAS AAA TATA AA AAA LAAT AA AAAKAAAAAAARAEKAAAEREEE 


MOV #ASG12,R4 


JSR PC, TTOUT ;PRINT DRIVE HEADER 

MOV DVN,R3 

JSR PC,OCTP ;PRINT DRIVE NUMBER 

MOV #4SG11,R4 

JSR PC, TTOUT :PRINT UNIT HEADER 

MOV UDES .R3 

BIC #177770,R3 

JSR PC ,OCTP ;PRINT UNIT NUMBER 

MOV #"SG60,R4 

JSR PC, TTOUT ;PRINT DENSITY TAG 
V UDES R53 

SWAB 

BIC #177770,R3 

JSR PC ,OCTP sPRINT DENSITY 

MOV #ASG61,R4 

JSR PC, TTOUT sPRINT PARITY TAG 

CLR 3 

BIT #10,UDES 

BEQ PAPRT 

a0V #1,R , 

JSR PC ,OCTP ;PRINT PARITY 

MOV #ASG62 ,R4 

JSR PC, TTOUT ;PRINT FORMAT TAG 

MOV UDES ,R3 

CLC 

ROR R3 

ROR R3 

aaa R3 ;PONTION FORMAT 

BIC #177760,R3 

JSR PC,OCcT sPRINT FORMAT 


;PRINT PATRN TAG 
:SEE IF RANDOM DATA 
BEQ PAPRTB IF NOT: BR 

sPRINF R 


;SEE IF AUTO SEQ 


SEQ 0105 
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07-JUN-78 14:49 


155130 
155122 


000430 
000010 
010000 


155034 
155154 


012214 
155152 


000520 


154744 


600452 
000001 


155172 


155050 


155130 


155056 


155036 


PACY11 30(1046) 


PAPRTC: 
PAPRTD: 


PAPRT1: 


PAPRTY: 
PAPRT2: 
PAPRT3: 


=. 
135-JUN-78 13:40 PAGE 106 


PAPRTC ; IF NOT: BR 

PATRN SEE. TF “AUTO RANDOM 
PAPRTA :1F SO: BR 

PATRN,R3 

PC,OCTP :PRINT PATRN NUMBER 
#MSG13.R4 

PC, TTOUT ;PRINT BLOCK NO. HEADER 
BLCNTR,R3 

PC,OCTP >PRINT NUMBER 
#ASG14,R4 

a sPRINT REC NO. HEADER 
#10,MTC1 ;SEE IF WRITE OPERATION 
PAPRT1 :IF SO: BR 

#10000 ,RDCMD ;SEE IF READ REVERSE 
PAPRT3 :1F SO: BR 

RCNT,R3 

TMFLG ;SEE IF TAPE MARK TIME 
PAPRT2 IF SO: BR 

#81, RTRN 

PAPRTY 7 If NOT BACK SPACE: BR 
RTYFL 

PAPRTS : IF NOT RETRY: BR 
Sai ;GET RECORD NUMBER 
PC,OCcTP ;PRINT RECORD NUMBER 
#55,T0B ;LOAD DASH (-) 

PC,TO0G sPRINT DASH (-) 
RCNT,RS 

PC,OCTP sPRINT RECORD COUNT 
#ASG7,R4 

PC, TTOUT sPRINT RECORD SIZE HEADER 
~ sation ;GET CHARACTER COUNT 


R3 . sREMOVE TWOS COMPLEMENT 


PC ,OCTP sPRINT RECORD SIZE 
#1 ,HDRFL :SET HEADER FLAG 
PC ; RETURN 


SEQ 0106 





TMO2/TU4S DATA RELIABILITY PROGRAM 
07-JUN-78 14:49 


CZTUIA.P11 


023662 


066767 


000207 


154770 
154760 
154754 


154746 


MACY11 30(1046) 


dD 9 
13-JUN-78 13:40 PAGE 107 


SRE AAA AAA AAA AAA A AAT ALAA AA AAAAAR AK AKAAAAA AAT KARE 


;RANDOM NUMBER GENERATOR SUBROUTINE: 


“THIS SUBROUTINE IS USED TO GENERATE THE RANDOM 
“NUMBERS REQUIRED FOR USE AS RANDOM DATA, 
“RECORD COUNT, AND CHARACTER COUNT. 


SEERA AAA A RATA AA AAA TAARAAAAAAAAAATAATAKAKERKRAAE EE 


154764 RANG: ADD 


1 


54760 


RANSAV,RANBAS 

RANBAS,RANSAV ;GET NEW NUMBER 
RANSAV,R1 ;SEE IF NUMBER TOO BIG 
RANG IF SO: BR 

R2,RANSAV ;SEE IF NUMBER TOO SMALL 
RANG IF SO: BR 

PC sEXIT 


SEQ 0107 





TMO2/TUSS DATA RELIABILITY PROGRAM 
CZTUIA.P11 


023664 
023670 


024046 


07-JUN-78 


005067 


162716 
000207 


14:49 


154754 


000152 
000215 


154732 


000066 
000260 


000076 
000270 


000062 
154670 


177770 


154640 


000014 


000004 


026001 
000060 
000020 


154736 


154714 


154700 


154644 


TTR: 
TTRO: 


TTRI: 


TTRIA: 


TTR1B: 


MACY11 30(1046) 


E 
13-JUN-78 


5 
13:40 PAGE 108 


SRSA AAA AAA AAT ATER AACA ATA AREA AE RARA KAKA ERATE 


: TTY ENTRY SUBROUTINE: 


;THIS SUBROUTINE IS USED BY THE TEST CONDITION 
sENTRY ROUTINE TO READ THE RESPONSE ENTERED 
:AT THE TTY AND CHECK THEM FOR LEGALITY AND 
ALL RESPONSE MUST BE TYPED IN OCTAL 
:(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 
;THE CALLING ROUTINE. 

:1F AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 
A QUESTION MARK IS TYPED (7?) AND THE RESPONSE 
;MAY BE REENTERED. 
sENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
:MAY BE TERMINATED AT LESS THAN SIX BY TYPING A 
; CARRIAGE RETURN 


SEERA ASAE AAA EAA AAA EAA A AAA AERAAAAAREREERAREEKE 


sLIMITS. 


RO 


TINER 
RO, (R5) 


PC 
#MSG43,R4 
PC, TTOUT 
#20, (SP) 
PC 


;CLEAR FIRST CHARACTER FLAG 
:GO READ CHARACTER 
EE IF CR 


; IF NOT: BR 
;SEE IF FIRST CHARACTER 
IF SO: BR 
sELSE GO LOAD VALUE 
:SEE IF CHAR IS. LESS THAN 0 
:1F NOT: BR 
sELSE GO TO ERROR 
;SEE IF CHAR IS GREATER THAN 7 
; IF NOT: BR 


:ELSE GO TO ERROR 
;SET FIRST CHARACTER FLAG 


:SHIFT 3 LEFT 


sSTRIP ASCII 
;LOAD CHARACTER 
;SEE IF DONE 


:1F NOT: BR 

:SEE IF EXCEEDED MAXIMUM LIMIT 
;1F NOT: BR 

:ELSE GO TO ERROR 

:SEE IF BELOW MINIMUM LIMIT 
;IF NOT: BR 


:ELSE GO TO ERROR 
eer VALUE 


;PRINT? 


;RESET SP 0 START OF VALUE ROUTINE 
;REDO VALUE ENTRY 


SEQ 0108 





. 9 
TMO2/TUSS DATA agro, PROGRAM MACY11 30(1046) 13-JUN-78 13:40 PAGE 109 


CZTUIA.P11 07-JUN-78 14:49 SEQ 0109 
4703 
ry sTTY READ SUBROUTINE teteeereee 
4706 024050 005077 154534 TTIN: CLR aTKs 
4707 024054 005077 154532 CLR aTkKB 
4708 024060 005067 154556 CLR TIB 
4709 024064 005277 154520 INC aTKksS 
4710 0246070 105777 154514 TTIN1: TSTB aTKs 
4711 024074 100375 BPL TTIN1 
4712 024076 017767 154510 154556 MOV @aTKB,TIB 
4713 024104 105777 154504 TTIN2: TSTB aTPs 
4714 024110 100375 BPL TTIN2 
4715 024112 116777 154524 154476 MOVB TIB,aTPB 
ray 024120 000207 RTS PC 
yas sTTY OUTPUT SUBROUTINE t#tttentenres 
4720 024122 112467 154512 TTOUT: MOVB (R4)+,T0B 
4721 024126 122767 000043 154504 CMPB #43,T0B 
4722 924134 001444 BEQ TEX 
4723 024136 122767 000045 154474 CMPB #45,10B 
4724 024144 001407 BEQ TCRLF 
4725 024146 122767 000041 154464 CMPB #41,T0B 
4726 024154 0014355 BEQ TBELL :00 BELL 
4727 024156 004767 000050. JSR PC,T0G 
4728 024162 000757 BR TTOUT 
4729 024164 112767 000015 154446 TCRLF: MOVB #15, T0B 
4730 024172 004767 000034 JSR PC,T0G 
4731 024176 012703 000006 MOV #6,R3 
4732 024202 005067 154432 TCRLFA: CLR TOB 
4733 024206 004767 000020 JSR PC.10G 
4734 024212 005303 DEC R3 
4735 024214 0013572 BNE TCRLFA ;DO FILLERS 
4736 024216 112767 000012 154414 MOVB #12,T0B 
4737 024224 004767 000002 JSR PC, 106 
4738 024230 000734 BR TTOUT 
4739 024232 105777 154356 TOG: TSTB aTPs 
4740 024236 100375 BPL TOG 
4741 024240 116777 154374 154350 MOVB TOB ,,aiPB 
4742 024246 000207 TEX: RTS PC 
4743 024250 012703 000002 TBELL: MOV #2,R3 
4744 024254 012767 000007 154356 TBELA: MOV #7,T0B 
4745 024262 004767 177744 JSR PC, TOG 
4746 024266 005303 , DEC R3 
4747 024270 001371 BNE TBELA 
ry 024272 000713 BR TTOUT 





TMO2/TU4S DATA RELIABILITY PROGRAM 
CZTUIA.P11 


024274 


024512 


07-JUN-78 


005067 


7 
000000 


14:49 


000212 


000162 
000120 
100000 
000061 
000116 
000006 


000104 


000064 


000052 


000036 


000022 
000014 
000240 
177564 
177770 


000030 


000020 


177524 


154176 


OCTP: 


OCTPO: 


OCTP1: 
OCTP2: 


OCTP3: 


OCTPG: 


OCTPGO: 
OCTPG1: 


OFL: 


MACY11 30(1046) 


:OCTAL OUTPUT SUBROUTINEtttecerceres 


:CLEAR FLAG FOR LEADING ZERO 
:;SEE IF NUMBER IS ZERO 

; IF NOT ZERO: BR 

sELSE PRINT ZERO 

>SPACE AND EXIT 

:SEE IF MSD = 1 

:1F NOT: BR 


G 
13-JUN-78 


OFL 

R3,R4 

OCTPO 

PC ,OCTPG1 
P3 


ocT 
#100000 ,R4 
OCTP1 


#1,R4 
PC,OCTPG 
OCTP2 


PC 
#177770 ,R4 


OCTPGO 


9 
13:40 PAGE 110 


;PRINT 1 


:PRINT 0 


;POSITION DIGiT 


PRINT DIGIT 2 


:PRINT DIGIT 3 


sPRINT DIGIT 4 


PRINT DIGIT 5 
:PRINT SPACE 
sEXIT 


;FIRST CHAR FLAG 


SEQ 0110 


TMO2/TUSS DATA gn, PROGRAM 
CZTUIA.P11 749 


024514 


024620 


024622 


024722 


07-JUN-78 1 


005067 


000207 


010304 


000207 


154120 
000010 
154110 
154060 
000200 
000061 


000060 
154050 


154046 
177704 


154034 
177674 


000036 


000026 


000010 
000002 


000260 
17776C 
153722 
177310 


154074 
154042 
154032 


MACY11 30(1046) 


DOUT: 


DOUT1: 


DOUT2: 
DOUT3: 


DOUTD: 


SNPT: 


153732 SNPG: 


H 
13-JUN-78 


9 
13:40 PAGE 111 


7DATA CHARACTER OUTPUT SUBROUTINE tt teeneanene 


CLR TOB 

MOV #10.R4 
MOVB R3,TOB 
TSTB aTPs 

BPL DOUTI 
BITB #200,TOB 
BEQ DOUT2 

MOV #061,aTPB 
BR DOUTS 
MGV #060,aTPB 
ROL TOB 

DEC R4 

BNE DOUT1 

RTS PC 

MOV TEMPS.R3 
SWAB R3 

JSR PC ,DOUT 
MOV TEMPS ,R3 
JSR PC ,DOUT 
RTS PC 


;SET NUMBER TO PRINT 


7TU4S SERIAL NUMBER PRINT SUBROUTINE*****«% 


MOV R3,R4 
SWAB R4 

ROR R4 

ROR R4 

ROR R4 

ROR R4 

JSR PC, SNPG 
MOV R3,R4 
SWAB R 

JSR PC, SNPG 
MOV 3,R4 
ROR 

ROR R4 

ROR R4 

ROR 

JSR PC,SNPG 
MOV R35,R4 
JSR PC, SNPG 
RTS PC 

MOV 0,70 
BIC #177760,R4 
BIS R4,TOB 
JSR PC, TOG 
RTS PC 


_ 


‘ 


;PRINT FIRST DIGIT 


;PRINT SECOND DIGIT 


;PRINT THIRD DIGIT 


Bt i FOURTH DIGIT 


sEX1 
;SET NUMBER BASE 
:MASK NUMBER 


BUILD DIGIT 
:GO TYPE 
sRETURN 


TMO2/TUS4S DATA RELIABILITY PROGRAM 

CZTUIA.P11  07-JUN-78 14:49 
4855 
4856 
4857 
4858 024724 042052 020105 043 
4860 024731 045 035507 021440 
4862 024736 041045 020073 043 
4864 024743 045 047103 021440 
4866 024750 053452 020105 043 
4868 024755 052 042522 021440 
4870 024762 051052 020123 043 
4872 024767 052 040520 051124 
4873 024774 020116 043 
4874 024777 040 047123 020072 
4875 025004 043 
4876 025005 052 042523 021440 
4878 025012 051452 040514 042526 
4879 025020 047040 027117 021440 
4881 025026 022445 042045 044522 
4882 025034 042526 047040 027117 
4883 025042 021440 
4885 025044 025045 047102 021440 
4887 025052 051052 020116 043 
4889 025057 045 020041 020040 
4890 025064 020040 020040 020040 
4891 025072 041040 042101 051040 
4892 025100 041505 051117 022504 
4893 025106 021445 
4894 
4895 025110 043040 043 
4896 
4897 025113 040 021522 
4899 025116. 020041 047505 020124 
4900 025124 047516 020072 043 
4901 
4902 
4903 025131 045 044441 046114 
4904 025136 043505 046101 041040 
4905 025144 052117 020072 040510 
4906 025152 052114 022445 021445 
4908 025160 041445 030523 021440 
4910 025166 053445 020103 043 


MACY11 30(1046) 


MSG1: 
MSG2: 
MSG3: 
MSG4: 
MSG5: 
MSG6: 
MSG7: 
MSG8: 
MSG9: 


MSG10: 
MSG11: 


MSG12: 
MSG13: 


MSG14: 
MSG15: 


MSG16: 
MSG17: 
MSG20: 


MSG22: 


MSG23: 
MSG23A: 


ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
ASCII 
ASCII 
-ASCII 
ASCII 
ASCII 


ASCII 


ASCII 


ASCII 
ASCII 


ASCII 
ASCII 
ASCII 


ASCII 


ASCII 
-ASCII 


. 9 
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-ERROR MESSAGEStetecereees 


/*DE #/ 
/ZG; #/ 
/2B; #/ 
/ZCN #/ 
/*WE #/ 
/*RE #/ 
/*RS #/ 
/*PATRN #/ 
/ SN: #/ 
/*SE #/ 
/*SLAVE NO. #/ 


/EZZZDRIVE NO. #/ 
/Z*BN #/ 


/*RN #/ 
/%! BAD RECORDZ%4/ 


‘ 


/ Fa#/ 
/ R#/ 
/! EOT NO: #/ 


/Z'ILLEGAL BOT: HALT222#/ 


/ZCS1 #/ 
/ZWC #/ 


SEQ 0112 


CZTU 


025173 
025200 


025205 
025212 


025213 
025220 
025225 
025232 
025237 
025244 
025251 
025256 
025265 
025270 
025276 
025304 
025310 
025316 
025324 


025330 
025336 


025341 
025346 


025352 


025472 


045 
043045 


045 
043 


045 
042445 

045 
041445 

045 
046445 

045 
052045 

045 
020445 
052116 
052120 
020445 
046117 
052114 
042045 
020072 

045 
035125 
021445 


042524 


040502 
020103 
051503 


051504 
020122 
051501 
020113 
041104 
020122 
052104 
020105 
047123 
047516 
051105 
021445 
047516 
020072 
021445 
047522 

043 
044520 
021440 


052524 


040511 
045501 


052123 


aia ot DATA mgt te PROGRAM 
P11 07-JUN-78 14:49 


021440 


043 
020062 


021440 
043 


-021440 


043 
021440 
043 
021440 
043 
021440 
052522 


046440 
040510 


051520 


045505 


032464 


024460 
020105 


024040 


MACY11 30(1046) 


MSG23B: 
MSG23C: 
MSG25D: 


MSG23E: 
MSG23F : 
MSG23G: 
MSG23H: 
MSG231: 
MSG23J: 
MSG23K: 
MSG23L: 
MSG25M: 


MSG24: 


MSG25: 


MSG26: 


MSG27: 


MSG28: 
MSG30: 


MSG31: 


-ASCII 
-ASCII 
ASCII 


-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
ASCII 
ASCII 
ASCII 


ASCII 


ASCII 


ASCII 


J 9 
13-JUN-78 13:40 PAGE 115 
/ZBA #/ 
/ZFC #/ 
/ZCS2 #/ 


/20S #/ 
/ZER #/ 
/ZAS #/ 
/2CK #/ 
/Z0B #/ 
/ZMR #/ 
/ZDT #/ 
/21C #/ 
/ZSN #/ 
/Z!NO INTERRUPT2#/ 


/Z!NO MOL: HALT2Z#/ 


/ZDROPS: #/ 


/ZPICKS: #/ 


/28/ 
/%%TU45 AUTO SEQUENCE (CZTUIA0)2/ 


/MAKE ENTRIES IN OCTAL2Z#/ 


/%%TU45 DATA RELIABILITY TEST (CZTUIAO)ZMAKE ENTRIES IN OCTALZ#/ 


SEQ 0113 


TMO2/TUSS DATA RELIABILITY PROGRAM 
CZTUIA.P11 


025536 


025540 
025546 
025554 


025561 
025566 
025574 
025575 
025602 
025610 
025616 
025624 
025631 
025636 
025644 
025652 


025655 


025742 


025747 
025754 


025761 
025766 
025774 
026001 


026005 


026026 


026034 
026042 


055103 


021445 
051445 


047040 
020122 


045 
052111 
043 


045 
054524 
051045 


020104 
020124 


C7 
020075 


020104 


045 
020105 


045 
040440 
020104 


045 


045 
020122 
042514 
046114 


042445 
0521715 


07-JUN-78 14:49 


052524 


052103 


040514 
046525 
020075 


042504 
020131 


040520 
036440 


041505 
047503 
020075 


044105 


040520 
020116 
057105 


047111 


020075 


051127 
020075 


052524 
047522 
020075 


022477 


047105 
047531 
051440 
036440 


051122 
021440 


040511 
045501 
051124 
047111 
046101 


042526 
042502 
043 


051516 
020075 


044522 
021440 


051117 
047125 
043 


051101 
020122 
020124 


052124 
052516 
036440 


046107 
051523 


042524 


052111 
043 


047122 
047125 
043 


043 
042524 
055132 
040524 
021440 


040440 


K 
MACY11 30(1046) 13-JUN-78 


MSG32: 
MSG33: 


MSG34: 


MSG35: 


MSG36: 


MSG37: 
MSG38: 
MSG40: 
MSG41: 


MSG42: 


MSG43: 
MSG44: 


MSG45: 


-ASCII 
-ASCII 


ASCII 


ASCII 


ASCII 


ASCII 
ASCII 
-ASCII 
-ASCII 


ASCII 


ASCII 
-ASCII 


-ASCIT 


/%SLAVE NUMBER 
/%DENSITY = #/ 


/ZPARITY = #/ 


' /ZRECORD COUNT 


740 PAGE 114 


/ZCHARACTER COUNT = #/ 


/ZPATTERN NUMBER = #/ 


/ZSINGLE PASS = #/ 


/ZZENTER STALLSZREAD = #/ 


/EWRITE = #/ 


/ZTURN AROUND = #/ 


(L22%8/ 


/ZENTER YOZZLE STALL = #/ 


/ZERR AMT #/ 


oo 


SEQ 0114 


TMO2/TU45 DATA RELIABILITY PROGRAM 
CZTULA.P11 


026046 
026053 
026060 


026110 
026113 


026170 


026175 
026202 


026210 
026216 


026217 
026224 


026226 
026232 


026277 
026303 


026324 


026325 
026332 


026336 
026344 


026351 
026356 


07-JUN-78 


043045 
045 
020445 


020122 
045 
052101 
053452 
045 
052 
021515 
052040 
047040 


045 
035131 
020452 
051124 


052 
042523 


14:49 
020103 
040503 


047516 
047440 
044527 
040510 

043 


047516 
044501 


046111 
020114 
020105 
021440 
044522 
046525 
020075 


047506 
036440 


020105 


042523 


021515 
047117 


051103 
051114 


020104 
020120 
020106 


047452 
040516 
047522 


042522 
021440 


042523 
020131 


042441 | 
043 


043 
021440 


041040 
052114 
020124 
020114 
042514 
051104 
054524 
042526 
042502 

043 


046522 
021440 


046524 
052040 
042455 
051440 

045 
020103 
020105 


044522 
020114 
025122 


051124 
051040 
045 


040522 


MACY11 30(1046) 


MSG46: 
MSG47: 
MSG48: 


MSG49: 


MSG50: 
MSG5S2: 


MSG53: 
MSG54: 
MSG55: 


MSG56: 
MSG57: 


MSG58: 
MSG59: . 
MSG60: 
MSG61: 
MSG62: 


MSG64: 


MSG65: 
MSG66: 


MSG67: 


-ASCII 
-ASCII 
-ASCII 


ASCII 


ASCII 


L 9 » 
13-JUN-78 13:40 PAGE 115 


/ZFC #/ 
/ZCA #/ 
/Z!NO BOT ON REWIND: HALT224/ 


/ NOT AVAIL #/ 


/ ILLEGAL DRIVE TYPE #/ 
/ZORIVE NUMBER = 


/ZFORMAT = #/ 
/*WE TM#/ 
/*SE TH#/ 


/ Th#/ 
/ WON-EXIST SLAVE#/ 


/EZCRC #/ 
/ELRC #/ 
/*D #/ 
/*P #/ 
/*F #/ 


/Z*ORIGINAL ERROR*#/ 


/ZRETRY: #/ 
/*!SE RTRY #/ 


/*!ERASE#/ 


TMO2/TU4S DATA RELIABILITY PROGRAM 
CZTUIA.P11 


5103 


OOo NAOU EWN — OO OOwouw fw -COOoOe@~ 


ee eed ee el eel ect ee el ch el ee ct ee ee ee ae ce ee me ee ed et ed od ed ot 
WR 


026361 
6 


026774 


021440 
020445 


07-JUN-78 14:49 


042522 
045522 


047516 


052122 
041505 


020072 
042441 


046524 
040514 

043 
052501 
047117 


041505 


042522 
020105 
036440 
042040 


040510 


042455 
042040 


043 
053506 
051122 
044507 
051440 
036440 
047524 

043 
042522 
042127 


047117 


020072 
026516 
040531 
051105 


042116 
etal 


052 
031060 
042526 
047524 


035124, 


053117 


an 9 
MACY11 30(1046) 15-JUN-78 13:40 PAGE 116 


MSG68: .ASCII 
MSG69: .ASCII 
MSG70: .ASCII 
MSG71: .ASCII 
MSG72: .ASCII 
MSG73: .ASCII 
MSG74: .ASCII 
MSG75: .ASCII 
MSG76: .ASCII 
MSG77: .ASCII 
MSG78: .ASCII 
MSG79: .ASCII 
MSG100: .ASCII 
MSG101: .ASCII 
MSG102: .ASCII 
MSG103: .ASCII 
MSG104: .ASCII 
MSG105: .ASCII 


SEQ 0116 
/ZREREV: #/ 


/ZTAPE MARK = #/ 


/%Z'!NO DRY FROM REWIND: HALT2Z4/ 


/ NON-EXIST DRIVE#/ 


/ZREFWD: #/ 
/ZUTERR: #/ 
/ZREGISTER START = #/ 


/ZVECTOR = #/ 
/ZDEREV: #/ 
/ZDEFWD: #/ 


/%!NON-RETRYABLE WRITE ERROR: ER #/ 


/Z!NON-RETRYABLE READ ERROR: ER #/ 


/Z!'END OF PASS 2#/ 


/LLeereeeeeeeeeeererere/ 


/*TM02 #/ 
/*SLAVES #/ 
/ZAUTO CONT: #/ 


/ZRECOVERED#/ 


nN 9 
TMO2/TUS5 DATA RELIABILITY ee MACY11 30(1046) 13-JUN-78 13:40 PAGE 117 


CZTUIA.P11 07-JUN-78 14: 
042105 


SEQ 0117 


043 ° 


051105 
52 MSG106: .ASCII /*!!BAD TAPE OVERFLOW#/ 


043122 


047111 MSGI6A: .ASCII /ZREWIND TAPE; RESTART AT BLOCK ONE#/ 


MSG107: .ASCII /%!!UNRECOVERABLE BAD SPOT/ 


050125 
051040 


020104 


042101 ASCII /ZBAD RECORD LEFT ON TAPEZ#/ 


042520 
047440 


040524 


055122 
035131 


fa 


/ZNRZ ONLY: #/ 
/*!!POSITION LOST IN RETRY#/ 


MSG108: 
MSG109: 


ASCII 
-ASCII 


1. 
7044440 
042522 051124 


051525 042520 MSG110: .ASCII /2SUSPECT BAD TAPE#/ 


040505 MSG111: .ASCII /ZREPEAT: #/ 

052040 MSG112: .ASCII / BAD TAPE SPOTSZ#/ 

050123 

022523 043 : 


051440 043117 MSG113: .ASCII /% SOFT: #/ 
021440 


027300 


027305 
73 «(027312 


052117 


045 
035124 


027316 
0273524 


027327 


020045 
020072 


040510 

043 
020441 
051040 
051105 


047125 


042122 


040510 
040505 
047522 


052111 


MSG114: 


MSG115: 


a. 


MSG116: 


ASCII 


ASCII 


ASCII 


/% HARD: #/ 


/Z!'HARD READ ERROR#/ 


/Z!UNIT 1S REWINDING: TEST WILL START AT BOT#/ 


ce Oo Co Oo IN NNN 
SENS SyaNnous 


te 
wi 
ooo 
Se 
Ss 
Nm & 


WWW A a SW 
ee a a a as ss ts ss SH os Ht Ss 


027424 


021524 


020124 


047502 


TRO2/TUSS DATA RELIABILITY PROGRAM 
78 14:49 


CZTULA.P11 07-JUN- 
5191 
5192 027426 000000 
5193 
5194 033434 
5195 033434 000000 
5196 
5197 000001 


B 10 
MACY11 30(1046) 13-JUN-78 15:40 PAGE 118 


-EVEN 
WDATA: 0 

-=. +4004 
RDATA: 0 

END 


sWRITE BUFFER 


;READ BUFFER 


SEQ 0118 


ee bags J DATA RELIABILITY PROGRAM 


CZTU 


ABLCNT 
ACTLRC 





007062 


07-JUN-78 14:49 


007240 


003002 


MACY11 30(1046) 


003004 


016410 


C 10 | 
13-JUN-78 13:40 PAGE 120 


016426 


001020 


001022 


017720 


TMO2/TU4S DATA RELIABILITY PROGRAM 
CZTUIA.P11 





027316 


07-JUN-78 14:49 


MSG115 


027327 


0 
024750 


MACY11 30(1046) 


SYMBOL TABLE 


PAPRTY 


D 
135-JUN-78 


026127 





023544 


10 
13:40 PAGE 121 


PAPRTO 


023320 


011046 


RF HARD 


011052 
011054 


000602 
002730 


SEQ 0120 


TMO2/TUSS DATA RELIABILITY PROGRAM 
78 14:49 


CZTUIA.P11 
RFSOFT 002670 
RPCNT 702 


07-JUN- 


RRSOFT 002710 
RSEQ 007342 
RSEX 007514 
RSF 007416 
RSFR 007522 
RSFRX 007662 


RSF 1 007470 
RSR 007374 
RSTAL 000572 
RTCNT 000704 
RTRN 000664 
RTYFL 000714 
RTY1 001050 


RTYS 001060 
RTY6 001062 
RTY? 001064 
RTYS 001066 
RWND 005004 
RWNDA 005016 


START 003026 
- ABS. 033436 000 


ERRORS DETECTED: 0 


,CZTULA.SEQ/SOL_CZTUIA.P1 
RUN-TIME: 31 65 5 SECONDS 
RUN-TIME RATIO: 526/102=5.1 


STARTA 
STARTB 
STARTC 
STARTD 
STARTE 
STARTF 
STARTO 


1 


003060 


0 
000644 


MACY11 30(1046) 


E 
13-JUN-78 


023734 


10 
13:40 PAGE 122 


023750 


001076 


001100 


= 033436 


F 10 
TMO2/TUSS DATA RELIABILITY PROGRAM MACY11 3041046) 13-JUN-78 13:40 PAGE 1235 
CZTULA.P11 07-JUN-78 14:49 SYMBOL TABLE SEQ 0122 


CORE USED: SK (10 PAGES) 


ye 


